


Institutional Archive of the Naval Postgraduate School 


Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations l. Thesis and Dissertation Collection, all items 


1983-06 


Design and implementation of a basic 
cross-compiler and virtual memory 
amangement system for the TI-59 
programmable calculator 


Kindl, Mark R.; Inskeep, James H. W. Jr. 


Monterey, California. Naval Postgraduate School 
http://hdl.handle.net/10945/19728 


This publication is a work of the U.S. Government as defined in Title 17, United 
States Code, Section 101. Copyright protection is not available for this work in the 
United States. 


Downloaded from NPS Archive: Calhoun 


| Calhoun is the Naval Postgraduate School's public access digital repository for 
uL D U DLE Y research mate иа and institutional publications c reated by m NPS community. 
a | | | Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 
ІШ | КМ OX appointed — and published — scholarty author. 
| ИВКАКУ Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





http://www.nps.edu/library 


| 
1 i [| 
| 
||. 





»4ley Knox Library, NPS 
lonterey, CA 93943 








NAVAL POSTGRADUATE SCHOOL 


Monterey, Galifornia 





DESIGN AND IMPLEMENTATION OF A BASIC 
CROSS-COMPILER AND VIRTUAL MEMORY MANAGEMENT 
ІШЕ STEM FOR THE TI-59 PROGRAMMABLE CALCULATOR 
by 
Mark Rk. Kandl 
and 


dames id. Inskeep. Jr, 
ише 1935 


Thesis Advisor: Bruce MacLennan 


БЕЛЕТ or public release; distribution unlimited 


1208828 





SECURITY CLASSIFICATION OF THIS PAGE (When Date Entered) 
READ INSTRUCTIONS 


. REPORT NUMBER 2. GOVT ACCESSION NO. 3. RECIPIENT'S CATALOG NUMBER 


4. TITLE (and Subtitle) 5. TYPE OF REPORT 4& PERIOD COVERED 
Design and Implementation of a BASIC Master's Thesis 

we Compiler and Virtual Memory КЕ 
Management System for the TI-59 Program- [s PERFORMING ORG. REPORT NUMBER 
mable Calculator 
7. AUTMOR(8) 
Mark R. Kindl 

James H. W. Inskeep, Jr. 























8. CONTRACT OR GRANT NUMBER( s) 








10. PROGRAM ELEMENT, PROJECT, TASK 
AREA & WORK UNIT NUMBERS 





9. PERFORMIMG ORGANIZATION NAME ANO AOORESS 


Naval Postgraduate School 
Monterey, California 














12. REPORT DATE Е: 
Junes 19835 





11. CONTROLLING OFFICE NAME AND ADDRESS 


Naval Postgraduate School 
Monterey, California 














13. NUMBER OF PAGES 
» 50/52» 
- MONITORING A МСУ NAME & ADORESS(II dillerent irom Controlling Office) 15. SECURITY CLASS. (of thia report) 


15а. DECLASSIFICATION/ DOWNGRADING 
SCHEOULE 


16. DISTRIBUTION STATEMENT (ol thie Report) 
Approved for public release; distribution unlimited 





17. DISTRIBUTION STATEMENT (of tho abatract entered in Block 20, if different lrom Report) 


18. SUPPLEMENTARY NOTES 






19. KEY WORDS (Continue on reverse side if neceseary and identify by block number) 














В, BASIC, Cross-Compiler, linker, TI-59, Segment, 
muaculator, Compiler, Pascal, Transiator 









20. ABSTMACT (Continue on reverse side ii necessary and identify by block number) 







The instruction set of the TI-59 Programmable Calculator bears a 
Розе Similarity to that of an assembler. Though most of the cal- 
culator instructions perform primitive data movement and/or 
Sequence control, some can do the work of small high level language 
procedures. Regardless of this fact, to design and debug TI-59 
programs of moderate size can be more difficult than doing the 
computations themselves. Programming in a higher order(Continued) 







DD , теш” 1473 = Evi TION OF 1 NOV 4651S OBSOLETE 


; Е E ЫЛА p———————— ———Á —— —'í—, ——— —————— '— À — ———————— 
У 4 60) 1 SECURITY CLASSIFICATION OF THIS PAGE (When Data Enterec 





нота OR tt ЕНӘ 
SECURITY CLASSIFICATION OF THIS PAGE (When Data Entered) 


ABSTRACT (Continued) Block # 20 


Ши рошаре such as BASIC offers many advantages over calculator 
END This report presents the design and implementation of a 
lcross-compiler which translates correct BASIC programs into 
equivalent TI-59 programs. This software package includes a 
Denker which maps calculator instructions to a set of magnetic 
ШИЕ. The cards are then used to implement a manually operated 
шиша! memory system for the calculator. This expands program 
Seep Capacity, and permits more complex programs to be written in 
И Гапоџасе for translation into TI-59 instructions. 





S.N 0102- (Ғ- 014- 6601 
э 


A рик 
SECURITY CLASSIFICATION OF THIS РАСЕ( Тел Data Entered) 





ВЕ vea 0) públze Eslease; distribution unlinite?. 


Design and Taplementation of a BASIC Cross-Compilsz 
and Virtual Memory Management System 
ОВЕ ен y Programmable Calculator 


by 
Mies: Ko ndr 
А, United Srar=s Any 
Бо и a eres Milictazy academy, 1974 
алп 
James H.W. Insksep, Jr 
в, ба доу 
К ОООО л е States Military Academy, 1974 
ЕС zn pargzalgrulfztinen. 07 “he 
би гепегт5= tes geke aeqzes cz 


NAVAL 20STGRA 
Júne 


-a J 
ос 


Dudley Knox Librar 


| lonterey. CA 93943 


ABSTRACT 
BE е Еше поп сев о: the TI-59 Pzog-ammable Calculator 
bears a clcs Similarity to that of an assembler. Though 
ЕЕЕ n= Calculator instructions perform orimitivs data 


Movement and/or sequence centrol, some can до the werk of 


small high level language zrocedurss. Regardless of “his 
fact, tc design and debug TI-59 orograms 2: moderat2 size 
Ec MCL] difficult than doing the comoutatiors + hem- 
selves. РО ал 3 higher Order language such as 
МАО СІІегс Many advantages over calculator coda. This 
Memert Presents the design and inplementaticn of a cress- 
empii which translates correct БӘЗШЕ ргоарапе into 
equivaisnt TI-59 programs. This software package inciudes a 
Beer which maps calculator instructions *o a set of 
magnetic cards. The cards are then used tc implement a 
Баи у cpsrated vir-ual memory svstem or the calcularcr. 
This expands program step capacity, end permits more complex 
programs tc be written in BASIC language fcr translation 


ieee 101-59 instructicns. 
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I. INTRODUCTION 
Hand-held orcgrawmable calculatozs provide an extremely 
portable means of ccmputation. Designed primarily for 
small-scale numerical computation, these devices are limited 
by their small memory capacity, slow processing speed, ana 
шиа ва 13 -у го perform syıbol nanipula-ior. hese 
constraints, however, cannor hiäs the programmable caicula- 
Orr's usefulness and power as a Computational tool. The 
instructicn sets of these machines r2senble those of assem- 
EE По StpUCtrlion words are px па ее щата раса оти 


simple data movements or sequence control. Yet, 


ІЛ 


cm 


iD 


13 


á 


iD 
13 


растат а гей instructicns do the work of small high с 
language procedures. Typical <-ļanmoles inrcluđdə polar io 
we enanar cooräinate conversion, trigonomercric functions, 
and lcgarithmic functions. In most assembly languages these 


M@pe=aticns must be ccnstructed  rrom primitive instructions. 


Even with these added features, the designing and debugging 


Ul 


calculator programs fcr POn-trevaei) vroblems citen 


ши: Тез an expenditure of sfrort which conceals tha useful- 


ct 


ness cf the final product as well as the calculator. 

ете ате aq number of.reasons for this difficulty. The 
Mex Cf a sophisticated display mechanism such as a CRT 
prevents the user frcm viewing more than a singie data item 


BE nstruction at any given time. mus cengodsy*ces can 1 епа 


nore than a msars of 


(0 


В 
БЕЕсТапсе, yət most provide li**1 


dumping mzemcry contents. Purcheraor 


(р 


‚ brogram debugaina can 
ЕГЕУ ЕСІ 11 the only error diagnoscic is a single 
flashing display or an incorrect result 


Maximum memory storage capacity constrains even main- 


frame ccmpu-ers. One solution has been the implementation 
or virtual memory, whereby а relativaly limitless on-call 
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г обасу store is used *o back up the primary storage. 


1 
Programmable calculatcrs usually have secondary storag2 in 


fee fcrn of magnetic cards. Normally, -hese cards ars used 
as archival rather than on-call storage. не ол 
sets of calculators are generally a cross between assembler 
E eructicns and a math function library. Compared to an 
assembler, the calculator instruction се? is small and 
includes cniy the most basic sequenc2 controis. E rougit: 
ШИКСссіБріс to build more soyalisticatad control constructs 


from the primitives, such endeavors are of 


сі 
(D 
= 
о 
о О 


Seocace capacity. Bes result, if coadl=ex p 
ЕКО опто memory, it beccmes necessary to learn or invent 
machine dependant "tricks." 

The programmer's inability to use meaningful names fo 
Шаглавцес can create more difficulties during calculatoc 
programming. Numerical register indices (a form of absciut 
addr2sSing) must be used to references varia 5. One of the 
major advantages of assemblers is that they provide for 
variable naming. Whee COMDOSING а = сосе, he calculator 
programmer must sither remember the register indices of his 


Meetables Or continuously refer +5 his own written symbol 


table while comocsing cods. Both methods become more errer 
prone as tne number of variables in use grows. Programs oft 
any  substan-ial computing power шеца Теа Ее large 


punpers cf variables. 
Hnssproblems asscciated w£2th calculatcer progr 
Many cf the same problems which plagued experien 
mers cf large scale computers in the past. HOW can a 
beginner be expected -o design good, sophisticated procrans 
BED NM ockeco calculator 2: 1:15: сап ре so dilficult for 
Epmcone with expsrisnce? One concludes that the majority of 
users write small, relatively straight ‘forward procrams ага 


шие си Ту utilize the pover of suck calculators. 


11 


Е пс егппелте TI-59 programmable Calcuiatcı is 
one of the more popular models. Its yalue as 3 rowerful 
e meezing tool iS indicated by ісе use at the 

 агайцат: School and in the U.S. Arny Field Artillery. 
ШЕГІ cOphisticated programming cf -:he TI-59 suffers from the 

ту weaknesses menticned earlier. Why, *hen, should there 
Puch in*ter-zest ain this device? Pethaps, “һе best ans 
to this question is provided by Hammina [Ref. 1]. He re 
Eo such a primitivs programming machine offers the us 
valuaki> sxperience because it is газу то Operate and 1 
the beginner direct access to very basic computing hardwa 
he warns that attempting mastery of the TI-59 1а 
35 a wast2 of time. Cne who must do sopnisticated o 
Вл ресагапојлга for this calculator should, instead, us 
 О5с5-ссіріісс “o auctomate and reduce his effor-. T 
DSDOrt presents the design and implsmentaticn of one s 
EeE-ccmpiler for tke ТТ-59. 
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II. SOFTWARE REQUIREMENTS 

A systematic approach to software development begins 
with the defining of general requirements. ПУБ Сасе; 
МИБ раг1с дедг19471 geal is the production о? ап effective 


сенате tocl which will simplify program dev 


» 


lopment and 
incrsass memory Capacity — for Ris c TI-59 rogrammable 
Bareulavor. Achievement of thi аса: should rssult in 
several enhancements to the u on and capabili of the 


Sor culator. There will be an increase ir it 


(Л 
p 
у 
p 
ү 
| +. 
с! 
bes 
сі 
о 


execute larger and mcre sophisticated software. Most ccmpu- 

tations which can be programmed in BASIC and sone = 

BASIC software (which may require minor modifica 

explained later) will become as portable as the TI-59. 
Impertant requirements for а user-oriented  lanauage 

transla-icn system shculd include that ict be easy to use and 


easy to learn. The EASIC programming languages is an obvious 


U 


mpeece ісі the scurce language; it is popular, Simple, and 


sasily learned. More importantly, many BASIC constructs and 


EXNWcrds are Similar tc those of 71-53. Во ae sty 
En 5 fact znat Гота languages are  liae-orzented ana 
sequential in nature greatly facilitates translation between 
them. 

ШОО УЛ мет опа о: tbe BASIC language currently exist. 
Because cf its availability at the Naval Postgraduate School 
ЕРТЕСІ ta Vang many Structured control flow constructs, 
Waterloo EASIC Versicn 2.0 (WBASIC) (Ref. 2], was chosen as 
the specific source language to be implemented by this 


compiler. The  powez of the TI-59 compared to the WEASIC 
language places restrictions upon the set of WBASIC conmands 
which can be translated. The specific WBASIC subset impie- 


mented is deferred їс the discussion oí design issues in the 


ЕЗ 


uw chapter. While WBASIC is easy to lsarn, it should be 
 Ратепт that subsetting the language will introduce sxceo- 
шише апа Testric*icns which will- teerd -+ Cop fae ace 
Швасгпапа for the novice and confuse the veteran. It is 


desirable tc maintain as few exceptions as pessible, and to 


С 
весе that restrictions pe clean and obvious. A construct 
О 


= 55 (а ето 


и u 


should te implemented as completely as p 
спе limitaticns, such as the file handling oz alphanu- 
meric f2atures) cr not at all. 

Hxc cocn ror. error detection and debugging is апсъ 
important requirement of a lanaquage system. The intended 
ВЕСЕ this initial system will Je аз а supplement a 
КИП WEASIC interpreter or compiler. As such, cae 
Emoss-ccmpiler will assume error-fzee source program input. 


ШЕССОПІУ zeqwirsmen* for error detection will be for the 


шет to recognize words/constructs which are not imple- 
nented, ЕЮШШ чт ск ог dinar ала: RBASIC commands, 
НИ ug cf PI-59  Erograms is so much "more difr$cul- -han 


debugging cf higher level language programs that it is 
reasonable tc assume that a user would prefer to debug his 
NE ETC rrcgrzam using the ЯВАЗТС intsrpretez/compiker avail- 
able. пасе е ОСОО = ПОСТУ сотгес2, 15 may bs 
EE compiled то TI-59 сой, ас which tine it will ре 
checked fcr subset and calculator capacity errors 
МИТЕ = – оне designers have provided it With capabilities 
which can be roughly equated to тһз p h 
language rcutinss. Interchangeable 591:4 
Sa demazk cé Texas Instruments, Inc.) modules allow on-line 
Esos tc utility prcgram iib5rariss. Program step 
ЕЕЕСӘІІ them and the exclusive zesazvation of particular 
Begisters are usually the only storage costs paid fcr use of 
these library programs. Е Ира еа ЕВЕ “the power of 
these mcdules be harnessed by the translator under design. 


Additionally, other scphisticated features of the calculator 
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F^ 
t3 
ap 


should Бе exploited whenever pessi Bache co ле хот 


со 
er 
D 
ps 
3 


© 
and enhance advantages gained y high level lanquage 
programming. 

uro linker will staticaily Рак th 


€ Б 
programs so that it will not be necessary fcr a complete 
d a d 


program tc reside in calculator step storage uring execu: 
Eon. Since the swapping in and out of menczy modules in 
me forn cf magnetic cards сап become quite complicated for 
azunnirg process, it will be necessary to keep this manual 

be reasonably 


System as transparent то tht user as can 
expected. мне - thar the ca 

display window and associated с 
ЕҢБЕ ТОС tbe degree of transparency which might otherwise be 


possitle. 


PE system must perform static linking :Е іт exceeds 
потап Stcrage available to it during exscuticn. e 


Epsogram wil be segmented into overlays according to tke 
size ci mem 


1 
MEE cu bis во == ата спа portions of code i 
needs to ex 
C 


ecuts at any given time. That a program Бе 
a 


segmented s yswapping, must te an 


additional xplicit zequirement ci a linker whose overlay 
swapping will be supervised manually. It is assumed «hat we 
БӘПТОС significanti fect ‘tne execution speed of the 
Sey culatcr. esi oer sen gin дъга ог гъци? ге- 
Meme Should be obvilous--suppres а езспегљат ст“ мпссћ 
meee tend tC involves human th 


The system source cods must be portable. In the 
ГЫШ рез Case, 1= is desized that the unmodified sourcs ccde 
Bewcepable cf utilization on aay machine which possesses the 
ЕОс tc store, compile, and execute ic. Because of 
Gperating system variations in such conventions as file 
КОО and handling, tzanster and processing of the source 
ВЕ ВЕ Ее Fried Lerm on anocher machine {with operating 


EEcensdsissrent fron thar on which i= is developed) will be 
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Моро злкеју. However, she need for changes shouid be kep- 


то а Minitum and should be localized. 


Easily, as with шозе 3 11 major software projects, main- 
tanence and readability аге nsidered varznount. Even 
ШӘРБӘТ its completion, отн СЕОУ -contain 


undiscovered bugs, areas to iaprove, and rcom for additions. 
Furthermore, develcpment оі а large prototype softwa 

system requires a great deal of careful planning for addi- 
tion and modificaticn. Adherence to he pregramming 
БЕ ШІСІріес which suprcrt both readability and maintenance is 
absolutely necessary. Additionally, detailed documentation 
Game scuzce code will supplement and assist in achieving 


these goals. 


III. PRE 


санан = 


it 
ені 
ск 
ін 
= 
ра 
{к< 
Iw 
ііі 
(л 
езі 
IM 
la 


Br requirements definxtion the next step in che soft- 
ware engineering process is the formulation cf a preliminary 
design. Scund software design principles are applied to 
previcusly stated requirements to construct the framewcrk 
for a software soluticn. ШС rang ents phase of design 
that many cf the most critical decisions аге а : These 
decisions may be based upon a variety of considerations, 
васп ся which directly impacts =he software organi 
These decisions and the resulting organization ar 


B-his charter. 


А.  PRELIÉINARY DESIGN DECISIONS 


Before a design can be formalized the engineer  mus- 
Mewes tigate all design options and tools available. The 
following section Summarizes the majer decisions which 


strongly influenced and constrained many aspects of the 


project. With most large softwares projects, time is an 
extremely critical resource. às such, Loo прасе upon 
ризи рагу design ccnsiderations is usually quite strong. 


u 
Eng cn schedule is generaliy cost affective. It will be 
readily apparent that time playead a key го 


also. 
ENECc:occ-Compiicr 


muc пдаапекн ај сопестпагатіспе which most 3nfiluencad 


AMO у= 51559 (EAsic X-=combiler for the TI-59) 


3 
ә 
H 
2 
(D 


C 5 
compilez were the method of parsing i* wculd use, and the 
language(s) in which it would be wrzit-e D 

a 


avalla 
СЕ several versions of Pascal ас the Naval Роз-аЕ 
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Шы шо and che working experience of “Бе authors с: this 
2, pe 


rspor- wich Pascal wer perhaps, che ovesrriding rsssons for 
its early selection as the design language pet quit cH 
mee extensibility, = ога урл, and block siruczuz2 of 


Меса! SULDCE= nodularity, readability, and maintainaoiiity. 


( 


ОЕ ан this point that the parsing technique bec 


В 


25542. The decisions were reduced to a selection t 
two alternate approaches. Berkeley Pascal was availa 
Digital ВН ов О: рова оп VAX- 117780 with 
ШИогатог:ес! Unix operating system. Ох 
included software tcols LEX and YACC which are 
automatically generating a lsxical scan 

parser fror an input grammar. АСС ат = Th 
specify ccd¢ generating actions which will be executed 
the prcductzons cf the grammar aze process sd. The alreen 
tive system was 2zntisely International Business Machines 
was available on an IBM-3033AP 


Berporaticn. IBM Pasc S 
stem. This system does not have the 
nera 


a 
with VM/270 operating sy 
боје fer automatic ge т К а ово Е ое (ena. 
Шивсвай, а scanner, recursive descent parser, and cods 
generator would have te be developad from scratch. 


d 
< + oF T - + = пе дете ES 
spect of automating the develcpnent 
с 


While пе prc ОЁ 
БАХ59 seemed more time sfficient and less trouble, it turns 
out tha- subtile protlems involved arts many. A compiler 
Eoustructsd using LEX and ТАСС is generated in the С 
language, a kind of struct:ursd assembly language Ипер 
Meepossible to link cbkject code compited from nn Pascal 


„+ 


 09515Сс% ссйе сотр: 1234 from the Z language, the mixing of 
scurce ccde tends tc destroy the portability and maintain- 
ability required of the system. Mocifications от 
improvements to the finished system could orly ba made if 


the programmer were familiar with Pascal, С anrd their 


Mu 
(1 
О 
Суг 
№ 
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interface. Likewise, a machine would be require 


both C and  Fascal ccmpilsrzs in order to process ths source 
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code fcr use. Thus, rscursivs 
YS 


apparent 
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was une alterna 


that 


Pascal 
a recursive 


ү. 
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easier *c develo in rure Pascai. 


language which <2 ClLS2On, 
tables and 
Stack r 
EV hclds tke 


The advantage of 


suppcrts 


stacks is unnecessary. 


=sulting from the recursiva 


same information sto 


using Pascal VS is 


^^ 
med 
~ 


tcols which this language system pro 


ten in Fascal VS, <tc the great 
those  ccnstrzucts and features whi 
Meet. 3] were used. 


Another majer consideration 
Eun cf 
isasibil 
run 

2i eo n 
чгак 


small 


poth 


Ccmmands 


transla*ed to TI-59. 
this 
Ж ЕНЕСТП character string and 
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Section. and 


eliminated. The 15 іт 


storage capacit го 
= handling. 
The WBASIC 


functions and 


ticn 


language is 
constructs. The ova 
implementing these operations would 
ШПеі1%5 “hey could provide. As a 
volving all 
igat 


single- 


Bonsrructs composite 


SN. НЕЕ only sl overhead 


7 


ment limited size, 


Mestricticns required that this cor 


improvement. 
ВЕ о Прах 

source program, decided 

all WBASIC keywords 


ge 


3 + 


– == 


ча= 
recognize 
clear E INC TOS 


peowsdsi1 а 
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the particular WBASIC language subset which co 


dimensional arrays. 
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desceec compile- 
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The Factivatien record 


procedure calis implic- 


Бли арсыз лд STack. 


= 
erc 


the pow ul debugging 
While BAX59 


р весу 


vidas. WAS 


E 


Ch are standard Pascal 


involved the identifica- 
uld be 

не ага. - me Constzäalned 
yeciCOns “nich primarily 
anipúulation were quickly 
alphanumerics and its 
бо ег any согсева ОБ 


LX 
di 


With aatri 
rhsad and 


outweigh ап! 


and array 
СУ 


programming 


ee: 


“с 


zasıle, 
data 


ле розег1јо1= 


сте 


types were 
How 


сере remain 


ИБАСІС 
to 
This 





Excur-ences or legal keywords which had passed thr 


C 
WBASIC Interpreter but which hal rot been irplemsnt=sd in che 


subset. Otherwise, legitimate WBASIC keyworzds, not impie- 
mented in РАХ59, would be <reated and translated as 
identifiers. ас Mmepvious Inconsistency night Es. very 
Пси: fcr the user to detect aS an error. Рен -поштан Бе 
noted that  WBASIC function names ars not handied in this 
мау. Tha reason is that the user can extend the  BAX59 
Emm t-in function litrary. ВО: seussien of this таза 
Memecererred to Chapter IV. 


Cu 


Appendix A is a summary of the WBASIC keywords an 
functions which have been implemented in BAX59 version 1.0. 
There are tnree genzzal categories of keywords recodaqnized by 
this crcss-compiler. Command reserved words are implemented 
WBASIC keywcrds which indicate the start of a particular 
ТС CCNnStruct or statement. Supplemental rteseived words 
are implemented WBASIC keywords which cannot be used то 
En a construct сі statement, Бит which can be used 
(cpticnally at times) within same то guide the interpreter. 
Unimplementsd reserved words are all WBASIC keywords which 
have not keen  implanmented ir BAX59. В ЕО те vast 
cat=egcry cí reserved words will result ina fatal subset 


Ber during transiation. 


о Linker 


linker ‘three major problems azoss. 
En first problem involved the fact ‘that ti 
Du va rc C 
Bunker is highly d а O 
ШЕОЛ ЕСЕ. If this dependency were allowed, th2n most work on 
the linker wculd ha O 


formalizec ard ir the implementation phase of design. Tae 


у босс сес л ал ле сбшрііст was 


second preblem involved settiing on a strategy to seqmsen- 
га 


compiled ccde according to the software г 





Пиле пате magnetic card reads. THO сое о. "act2zoorowsce 
ps 


ry? 
(b 
O 
(1 
y 
(0 
14 
е 


disccversd, sach of which had advantages over 
Meee плака ргср| ет tavelved how prompting procedures wer2 +o 
be used tc ensure prcper execution ог the segmented pzrzocgqrai. 


Procedures were required to be user-friendly and easily 


O 
fu 
• 


unders*o 
Е аге problem 22 was decided to make »Ећ= 
БЕШ 09 between the linker and She compiler as looss as 
possible thereby reducing the dependency. This was achieved 
ШТЕТА ппу а Srecific "third party" interfaces between the 
compiler and linker. = „дз л с as го лес Ба 
Brille containing the four coded pisces of inf£crmation 
БЕЧ теа Бу the linker to accomplish its 
This arrangement had several advantagas ard disad- 
5 One advantage was that it allowed fcr the 
velopment cf the linkez and the compiler. sacs 
rface was well defined, no other information needad 
to pass between the linker and the crcss-compiler. By using 
this systen, amrerfacung Sconssdssacsonse such a патіпа 
решен? спя were nil since each огосеѕѕ was totally indepen- 
dent. Ancther advantage concerned future implementations. 
Tt was envisioned that future versions cf the system would 
КЕМ тр! зшеп ей cn microcomputers. Ву havlr the projsc- 


EE ded 2n half both logically and physically it would be 


easily acaptable to the mcre constricting memory require- 
ments of the Пістссопритес em zdngent. These +wo 
advantages alone outweighed the only major disadvantage of 


the decision. The disadvantage is that ths linker needed to 
Бе able tc regenerate the compiled linked TI- 
ture which was originally produced by the com 
purcned out, this penalty was small wher co 


overall sizs of the finished linke. 
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Ber secondsprchlen Was a very difficule  p-obiem то 
ES. Tue to the limited size of the calculator memory and 
the Cumberecme nature ог the magnetic card backing stora 
system, the software requirement а а 
cf magnetic card reads. Phos 2=а0)- зешел- ша ст=ђе = 
following decision: a code segment-break cannct cccur 
пољ а Бескмага loop. It would be preposterous зо read a 


magnetic card every tine a program  encourtered a segment 


break within a thousand iteration backward loop. This lead 
Ehe fcliowing hierarchy of ségnentation 21125. Firs- 


ENOrOGty, segnmentaticn may not occur within a backward loop. 


End  rricri*ty, Maintain invoked  subrou-ines with the 
invoking code. Па ша priority, keep adjacent sequential 
code together. To implement thèse decisions it became 


ШЕЕссату to examine the control flow structure of an input 
program. 

Шы Кес с ол as to how tO accomplish this ccnrro; 
flow examination is the Есипиз степ НОЕ linker... design. 
Basically, two options were determined. One deal* with tae 
input prcgram as a whole апа :he other deal- wi-n it asa 
series of sequential farts. 

Idea lag Vito Meche incur progran as a whole, the 
design algerirhm would check to see if the program met the 
memory iiritations. О сл л ооа теа would 
examine the control structur determines whera to make an 

a 


БЕСІШаі break, that is, 


Ше ртопгайп. it would then chec urs 
Pies they ccmplied with the memory restriction. Tha algc- 
rithm wculd continue until all segments met the memcry 


requirements. 

Iso cher method the program wes cecomposed into 
a series of sequential segments (а sequential segment is 
defined as segment which does not contain a backwazd loop 


a 
reference to any instruction other than possibly to the 


Е Smerruction of the segment). В ОО Ем 162757 
determined the sequential segments. Next the algorichn 


combined adjacent segments until the memory  liími- was 
emecuntered. А аи о перо и ЕЛА Occurred, Тће 
memory limits were reset and the combining process continued 
until ancther limit was enccuntered or the whole sequen- 
tially secmented input program was processed. 


The second method was selected for two reasons. Th 


D 


first reascn is that the first method <ventually required 


the evaluatic cÉ cce on a small s#gnent level much like 
the  seccnd to determine a suitable segmentations point. 
Escher then do this and more, iz was decided +o just seval- 
uate the small segments and build up rather than down. The 
Second reason was that the second method lent itself toa 
плете sclutien during the zecombination process. The 
recursive scluticn greatly reduced the langth and complexity 


СЕ the segmentation ccde. 

The third preblem involved deciding upon a method 
ШЕ сассспрізпеһіпПп the prompting of the user. One method 
Meee With assigning coded prompt numbers of short length tc 
EN ucl: into the code. The other method involved building 
Berger self-explanatcry prompts into the <he coia., Таз 
сзсопф със) се was selected. This was done to 
mmoet Of instructicn references zh пр чү рауы л 
make during the execution of che d calculator 

h 


nostro mare 


er) 
j- 
13 
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program. This was in keeping wir 


the system user-friendly. 


В. PRELIMINARY DESIGN ORGANIZATION 


Thus far the system design space has basn narro 
the design language, sourc2 language subset, and the general 
meenniques fot compilation and linking. Organizaticn of the 


наге into functicnal categories may now begin. This 
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ШЕН Грлазе Of development is characterized by a acre 
ШЕ а 259, yet still preliminary consideration of systen 
components. Е росе оу пок chat a natural 
ШУЛ е Сп into two major ве поза: components, == 

conpiler and linker, has been assumed since concepticn of 
the system. Pora ис mandes ап ваш, this partitioning 
appeared to hava ths greatest potential for success. ШЕ 
allowed the simultaneous developnent of wo independent 
Eel ccmpcnents of low coupling | Вет. 4: р. 85] and high 
cohesion fRef. 4: р. 106]. The result « 
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Е 
ВЕ піпілі?асісп cf programmer interaction, maximization 
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4 ңқ «- ~ о з~ <= ~ зен тт 
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MO TK time efficiency, and sinplification 


The remainder of this section outlines 
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Eur and organizaticn of “he cross-compiler, iinker, and 


the dirsc* interface between them. 


Tuesconweon  rorm of all. 'vsrzsxions or BASIC language 


cen be characterized as = line-oriented, and 

sequential. The design of BAX59 is based upon this fact. 
Bech WBASIC line is parsed, beginning to end, by recursive 
descent. Equivalent TI-59 code 25 “Челегетс-і for cach line 
опоптгел ју with the parsing operation. Mies means that 


Ш(5Ә9 мм || successiully translate e sequence of syntacti- 
Ey ccrrect yet meaningless  WBASIC Statements into 
Eu valsnt TI-59 code. HOweves 7 pene TI-59 codes will bs as 
meaningless as the scurce code For this reason, Lees 


О 
recommended that the user successfully execute his WEASIC 
source program using a WBASIC interpreter (or compiler/ 
Meader) pricr to translation wizh BAX59. 

А line-oriented view of the source 
several advantages to the design. ВЕ, chess is 
sequential ccrrelaticn between tna original source progra 

a 


ЕШ тпа translated TI-59 code. Low eo. Scan 1 





allows asy manademer*t cf the genera 

ис аса -а. Second, the parse driver routine can Бе а fairly 

simple loop, since lines ars parsed to ənd of linə one 22 2 
| 


еще until the send of the source fils. A MS до che 


source as a sequence of independent pieces greatly tacili- 
tates an iterative enhancement approach (Ref. 5] to the 
progressive development cf BAX59. rhis approach virtually 
Huucantees a working prototype throughout the coding phase, 
and Supports posu 2 Liability and шезпга гара 12 


Eu f2cations can be quickly tested within the context o£ 


*һе єпїїге conpiler system to дате. Upon completion, the 
Programmer tends to have greater confidence in his product, 
because a great deal of testing has already been puueteds 


cond 
EAX59 was temporally — into three major 
ee orel sections: initialization, *ransla-ion, an 
ШІСІоп. The primary и pertormed by inztielizat:ion 


МОП зе setting up data structures апі initializing variatle 


values. There are three maior data structures manipulated 
by the tzansląaticn section: the reserved word cable, tne 
symbol -akle, and the code data structure. оросо сца 5пр- 


divisicns of this section, namely tha scanner, the oarser, 


ema che ccds generatcr, manage each databas= весе vely, 
While the scanner isa separata routine by itsalf, he 
Parser and code generator ara дот as separately defined. 
Мезе functions are actually perrzormed concurently by a set 
of mutually recursive procedures under the direction of the 
Main driver. Вес. С -прргодагаш into 
executicn as its corresponding WBASIC construct is recog- 
nized. СЕСЕ translation has been compistsd, сіз resolution 
sec+icn processes the generated code into a form suitable 
Hsc final output. This includes label insertion,  reephcle 


бр: пагаћјоп, and absclute address r2solution. 
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не Ішекес was Organized into three vhases. Ihe 
design СЕ these phases were the direct rasulcs cf the 
preceeding design d¢cisions made in th2 preliminary phase. 

Ie first phase is the dire 
coupling ketween the linker and compi 
combine smali segusntial segments О 
constrained segments. Tt is tn? prsorocessor phase. 
Pease processes the interface input file and reconstructs 


ШЕ Сспрі1гй4 11пкед соде structurs. In addition the prepr 


cessor determines the sequential s2gments о 

constructs an internal data table called the segment tab 

which is used by tne second phase, the segmentation phase. 

The segmentation phase utilizes th2 recursive aigorithm te 

recombine sequential code. The postprocessor phase is the 

Ее of output design decisions. ВЕ == 15serfts che 
1: 


à 
prompting code and develops the segmanted cede 
Output tc the user. It then produces the code in а text 


Ramat zogether with specific instructions as to its Use. 


ч T 
cres: interface 








The design crganization is built around the loosely 
EXUpled compile-z and linker. This coupling is made possible 
 ЕМап the cigid defihiticn сЕ the interface text file. 
Mee, crLgarization of this text file is critical to the design 
and will ke described i 


+e | 


оге деста и 
Ше сәхг file is the orly di 
Бен ееп ccmpiler and linker. Four on. СЁ data are trans 
matted. They aza the zollowing: a number signifying the 


nex* register available for use; generated code list in a 
n m 


mamecic fcrmatted form; text containina DATA/RZAD infcrma- 
Шол: and tex: containing the mapping of TI-59 registers to 
BASIC varibles. Sach piece of information is preceeded by a 





(іп the first column where XXX is a number. This simrle 
format enables the linker to easily locate the correct 
Meee eGacticn and process it accordingly. ӘЗПСе thas iis che 


a 
ENSE схтіссіс interface, the compiler and linker are net 
Е 


кс (Л 


а е 
dependent cn each other as they would have Бееп іл а сісзеі 


coupled system. 
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IV. DETAILED DESIGN 

Euecscurce code contained in Appendices C and D provides 
high resclution understanding of the system. However, іп 
order to provide rationale behind design issues for a 
language system comprised of almost 10,000 linas cf code and 
comment, discussions cf some detail are in order. 

MS net our intenticn to explain everything. what wa 
EN c dO in this chapter is to antrcduce dssign details 
and strategies of the more important concepts and comvonents 
he System This will serve to illustrate software engi- 
ШЕГІП and how it is used in this project. 

Upon the completicn of preliminary design, the detailed 
design is begun. ite ОО ла = phase «that the actual 
Metals cf full implementation ars defined and laid cut 
ог 50 ccding. ба = 06 ка геад 124r cross-conpilər. and 
ПК, іп: generai format for the sub-sections of “his 
Bester will includs an infcrmal solution strategy іс: а 


specific design problem, followed by a discussicn of the 


major data cbjects and procedures which manipulate those 
EpSJects,. Where apgıopriate, inter-procedure c 
em teria are outlined. In several cases, significant prob- 
lams, tneir solutions, and possible system improvements 272 
discussed. Tke last Section presets inplic:= interface 
design which impacts greatly on the system. 


ҺЕ CBOSS-CCHPILER 


The fundamental design of BAX59 із а 


Machine driven by a main loop. Once values an 
meses have been initialized, program control enters the main 


5 
So» which scans, parses, and genera-:es II-59 code fcr cone 
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ЕВС сспгсес line, At the end of line, the loop checks ‘for 
ЕШ СІ scutce file. fe опис аз оеша ог п.с Ts no- 
detected, the main cop repeats its processing cf each 


succeeding lines cf scurce code. When end of 
Sem@eemer exits the main loop and post-processing begins on 
the generated 11-59 code. This includes 
suspended code data, optimization, adärsss resolucricr, г 
Peel cutcut of cod ard a@ssociated data. 

Pme entice cross-compilaticn process is broker down into 
15 functicnal arsas. These ізге ой-іӛмтгей Бу eh 
Eran in Figure 4.1 Note that solid lines indic 


= 
а 

ШЕГЕ ғес (P/) or functions (F/), while dotted lin 
Е 


es only 

ши шсасе logical association. Although these areas often 
depend urcn one anotker, the parr2cular services pericrmed 
by ¢ach differ enough to allow independent analysis. "era 
it net for limitations imvosed by the Pascal language many 
pack- 


more rrocsdures and functions would have been ee 
БИЕ ine crder to hide implementation  dstails t 
те ional areas. What follows is а survey of ths major 


eimets3cenal areas cf EAX59 and the design details for sach. 


I In1*3a!izat-*on5 


ILES the ipnzcerest 07 execusion time effic 
G actions whei геди? те Bemen>zicnhn pra 
БЕСЕ ст parsing are incorporare into procedure INITIALIZZ. 
As a result, some variabies and databases which wou 
wise have been local to their resvective procsdures, 
ШП га glicbalizaticn. On= particular 2 
reserved word table. Pais deta ност 
suppiied frem outside the program in file RWTE 
reserved words contained in this fil 
Simce {a= the start of execution), the 
memolace them into precedure SCAN, wh 


parse routines. While i- wculd have been 
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ee c sou аи г ТТ] ф == = <= се» m mm cwm amp eum es 
1 Tb! EE EE 
| Prfattive Car 1 | Routines | | "outlines ^ 
tres | А. НИИ | — € 
F/ HASHVAL | | P/ GENTO 
F/ GETSLOT | Р/ GENNUM 
Е/ ЕМ СНК. | — |P/ PEXPR 
F/ MEVREG | p/ PPRIMARY 
Ғ/ МЕЖ ВІ. i | P/ PCONDITION 
Ғ/ FMSTACKLOOK | Eno c aces 
| 
И 9 a 
| | Loop Routínee 
F/ ENTERID| | ---------- 
noce comer. | | P/ PUSHCOOE 
ее : 1 F/ POPCOOE 
Code Data gt | ı P/ ЅЕТЕМОЈМР 
tines | | РИ ЗЕТВАКОМР 
<= жз «қ» «қа» «цар «ар «ар «ар «а» 4 | 
Ғ/ МЕМСОСЕ i | M er. 
P/ PUTKEY | | 57 m 
P/ GENKEY ра ли. 
РИ INSERTKEY — | ne Ее 
Р/ ЧЕТМЕЧНОЯ | | a 
P/ PUTNE NHOR ; LESA с 
Р/ SETLIME | 
РИ ЗЕТОМРЕХТ | ГЕ аы 
is == == | If Routíres 
а E 
“ | P/ PQUIT 
en 
| Р/ GENFNQ I S 
| | ı P/ PTHENLINE 
¡ P/ CHKFNLLIST | 
| РИ GENFNL | Ща 
Ая l | P/ PIF 
m | Р/ GENPARM | | PIEL JO 
| P/ PRECOVER et | | Р/ PELSEIF 
ı P/ PERAOR Eua 
| | P/ PSUSERROR | | РИ РЕМОТЕ 
І Р/ РМАВМ | n a ЕЙ ыстан йы 
! Functíon Defn | 
pee | | РЕШЕ" | ;-------- 
== ae = Б | 1-1/0 Rout free 
| P/ PUSHEN . | eee a a a 
| | Р/ FILLPARMIDS | P/ POATA 
| P/ LOADRM | Р/ РЕМЕМО | | P/ PRESTORE 
P/ LOADLIB | Р/ РОЕР | | P/ PINPUT 
P/ LOADCTEXT ГРИ GETFMLS | | РИ РРЯТМТ 
(а ame eme cm сы» «ме «мо «м» oe um а ||| (Шә = <= <= = = = => == => 
Figure 4.1 Cross-Compiler Contour 
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(PROGRAM BAX59). 
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Ши сап switch tc detec- the initial call to SCAN and subse- 


quently generate th? reserved word tabla at this first call, 


this would have increased “Пе coupling between modules. 
Loading tke reserved word table from outside the prcaram 
cffers several advantages. Parce; Schenges со the тесегуей 
word takle can be made easily (this process will Бе 
discussed when the scanner 15 considered). Second, the user 
can check cna file (RWIBLF) in order to sse the reserved 
uds rsccgnized by EAX59. ЕО, седла routine deces 


е 
ЕЕ ееа tc know the words themselves, only the name and 


Maat oí the file in which -hsy rsside. 


| ен functions are also loaded Бу procedure 
ШРГТАТ,ТЛЕ, реа actually requires -two crdsred 
staps. First, “he symbol +able must be created. Second, 
ПИСЕ оп recognition and generation data is read from 
cutside files (BIFNCF and: BIFNLF) and the symbol  *aris 
Management routines are used to put this дата in the table. 
Шазатпа Еве built-in functions by using the same routines 
which the parser will use to manage the ynbol table, 

E 


ensures table consistency and 02010:25 Tea 
approach has bean taken as often as possible in 
BS cross-ccmpiler. 


The conplexity se 
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Кепе азоне c.n udlscdticc DIOS 
(О а (СТО ТЕ) са 


process required that these operations be apstracted int 
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in 


ча 


О ао 
Ке а= the the TI-59 Хаус 
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da vidual subp-ograns. However, procedure  INITIALIZE 
BEErcrms mary other pre-compliiatíen acuiviziss which could 
be performed sequentially. Вера о у спе сеп 1 прегтап: ос 
Be activities is the simple initialization cf variarle 


à 
es. Еро ЗаСе ok піс ras is 21ечазеа by a 
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ны 
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сі 


Ss Oe mene расса! VS 


ІЛ 
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< ncle in the Fascal VS impismen-c 


k 
& 

шешо: јег w31l not detect the faiiure to initialeze a vari- 
able value rrior to its use. „har is w 
т 


ШШІСП exist in pointer references ог о 
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вые 11 be used as is, whether they were put there by zhe 
user or nor. Де а ео failure to - 


a majcr source of errcr during dev2lopme 


n 


t 
ВЕ ОЕ errors tenced to be extremely difficult tc debug, 
since they cften surfaced late and usually in modules Leng 
mpougnt tc be robust. 
їп summary, | ргоседиге INITIALIZE loads all inf 
tion which will re nesded by the zranslation and resol 
Stages, ccnstructs ccnveniences daxa such as character Sets, 


assigns starting values to all variables ard pointers. 
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Кл 


canne 


іні 


At the lowest level of abstraction within the =rans- 


Г 
са Ccmponent of EAX59 is the sc 


агпег, procedures SCAN. 
This single, self-contained subrrogram is basically desidned 
ENEhrsc important ccnrcept:s. First, the scanner is itself a 
finite state machine. Second, u- APENS exceoticon of procs- 
dur» ENILIALTZE and sone system сова - =, its 
EusLementation is transparent to the rest of the cross- 
h 


Compiler. ШЫ То, zhe database я 


it 


Meeogniticn is simple, time effician 


she st 


* 


n 
arg 

по мастере Logic Olor oc- dur: SCAN provides 
m 


f» 
ct 
Ф 


a 
knowledge cf token streams in free for о ле ара, тезе. 
O 


ша primary job is to read the source filə character by 
e 


Биаагастегр іп огйас tc isolate and recognize single tokens. 


С 

However, procedure SCAN is designed to do much nore. First, 
i- reads and converts line numbers. It also til 

Sarv the line buffer and accumulator, the data structures 
ШЫСЫ stere the line and token currentiy being scanned 
respectively. Ihe scanner also dstects the end o 

ENS which has no explicit  WBASIC "END" steteme 

allows a more graceful conclusion to what might otherwise be 


abrupt exit. 





Пе с аети Еплессопа реггогвшец by the scanner 
illustrate its transparency to the rest of the cross- 
КОШОТ 1 ег. These аге recognition of the end of a line and of 
continuation lines. Procedure SCAN -zsad 

buffer (LINEUF) with a new line cí source text ea 
end of line character ("9") ОЕ СОВ ТЕГИ 

Wie 725 Ісппі. The cnly difference is that the end of line 


token number must be passed up то the parsin scucanes 50 
that the main loop will know when it has parsed cre entire 
inne. вр Ба" сег hand, к пе нее о «charec-er can 
remain invisibl to the parser, Wasch vssws only  whcls 


scurce lines. 

As mentioned Ebefoze, tha databases used by procedure 
SCAN is the reserved werd table. Although raféerred to as a 
mee, - 55 internal ispresentaticn of chis database 15 actu- 
HEB rhzee coordinated arr 


a W 
EN Бу procedure INITIALIZ Грезе аггауз are used to 


Eupare the characters ог а token in тһе &ccumuiatcz с ths 
characters cf reserved wczds. Th2 simplicity and efficiency 
EN his ccmparison is illustrated in Figure 4.2, which 
üUEDICts a condensed schematic of the arrays. Note that the 
егасстег= in The SWCHAR array ars arranged in cerder of 
wer easing word length. A reserved word look ur ls base 

Шоп the length of the word in the accumulator. Comparison 


п: at “Ге first character c5 the first word in the 
RACHAR array which matches the length of the token in the 
accumulator. Comparison ends when either all characters in 
the accumulator match a string in the RWCHAR array, ox when 
the characters СЕ all words of a qiven length have been 
compared to the accumulator without success. 

The RWWORD array references the start index cf <= 
word in the RWCHAR array, while the RWLENG array refe 
the start index for the first word in the RWWOR г 

О 


that lencth index. The indexes of the RWWORD array ar 
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----------------- 


E 


бо“ | |- | ju fe fr fo fe fe br fr fo fu 


(INDEX) 10 11 12 13 14 15 16 17 18 19 20 21 22 





мое "араара рәр e 


( INDEX) 10 11 12 13 14 15 16 (= TOKEN NUMBERS) 


wes D TRISTE T TZ 


( INDEX) 1 2 3 4 5 6 (= RW WORD LENGTHS) 


RUCHAR STORES RESERVED WORD CHARS IN ORDER OF INCREASING WORD LENGTH. 
RWWORD STCRES INDEXES OF RWCHAR CORRESPONDING TO FIRST CHAR OF EACH WORD. 
RAWLENG STORES INDEXES OF RWWORD CORRESPONDING TO FIRST WORD OF NEW LENGTH. 


NOTE: ARROWS INDICATE RELATIVE ARRAY REFERENCES, NOT ABSOLUTE POINTERS. 


Figure 4.2 Reserved Word Table Arrays. 
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as the token numbers returned by the scanner after a 
Eswecessful look up. Should a lock up operation fall to 
recognize the accumulator token, “hen the token is assumed 
to be a variable identilier, Other token types, such as 
Ame rics, are recognized prior to table look up. This mech- 


) 


anism and the fact that the scanner is independent fren 2 
perser require that WBASIC keywords be reserved. ТЕ 
keywords were overloaded as variable identifiers, the parser 
would have tc communicate its token type expectaticn to the 
Scanner. Token cverioading would greatly hamper 
meadatility. 

Cne scanner related problem which required a rela- 
Tt WEASIC 


 ҮсіІу сспріех solution concerned thea conversi O 
DNETI-59 numeric values. The calculator display window 


$ 3. 
O 
3 


Tni Cts the number of significant figurzes which can bs 
entered frem the keykbcard. Fer numbers without ex 
humum cf -en digits (with decimal point} сап Бә 
Numbers with expcnents are allowed a maximum c£ó eigh- digits 
in the mantissa and two in the =xponent. Becaus 

Testricticn, a rather complicated procedure was designed to 
convert  WBASIC numeric values to TI-59 compatible values 
Without losing equivalence. Procedure ADJUST performs 
Ш ЕСша! рсіпт shifting and exponent modification on WEASIC 
ШОО с Се which contain coo many significant figures for the 
E59. The operation cep, of course, reduce Significance by 
КЕИ Сасісп of excess digits. ENE E O ES 2055 "of 


ERG ts, equivalence is maintained. 


E Fer Handling 


ПИ ро:па- 22 25 арршор::а-= то discuss error 
recognition and recovery. As implied earlier, the error 
Mececcicn capability in BAX59 is relat d inccm- 
plete as ccmpared to full languags com NEU еагсп 15 


that the system requirements specifies erfor free input 
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eeurce files. The primary use for this system is as a 
supplemert +o an existin BASIC language interpr 
ШШШ ет. Debugging cf TI-59 pzogrzams is a hard eno 


without adding the ccmplexity imposed py absernc 


(0 
O O в 


language run-time diagnostics. Therefore, 


users 
are  strcngly advised tc ensure that a WBASIC program is 
emr ect syntactically, semantically, an logically Бу 
Sang it in the WBASIC environment, before translaticn to 
ME O Codz. Erroz handling in BAX59 is restricted to detec- 
tion of subset related exceptions, calculator capacitı 
МЕЕ ЕЕ, ала errors of cpportunity. 


ieemeses=s-complilce> is desigmed ros recognitior of 
= 


ct 
x, 
O 
t3 
£f» 
c 


о 
О түрез of errors: atal errors and wactning 
A 


messages. а ee Ole а-а и“ ==" categorized as “canner 
or parser detected. 

Warning messages are generally unrelated to WEASIC 
E cetic or semantic problems. ко meter ito peter vial 
 ЕГІСПІЗ лес with the TI-59 run-time environment, ст 
commcnly (but not always) calculator capacity. пе Ее: а: = 
tions as toc many registezs in use, too many labels in use, 
cr excessively nested subrou-ins calls, fetes oder warn? 
mgs. Each message is explicit and cautions the user of a 
Situation which is considered abnormal to “he calculator. 
Since these errors are unrelated “o the WBASIC source code, 
warnirg messages do net halt the parsing or code generation 
processes. However, TI-59 code generated from a WEASIC 
source file chat produced warnings is not quaranteed to 
Beute zriorerly, if at all. 

The warning message is similar tc non-fatal errcrs 
he 


it ОПО О соса 1 прастепл of 
eede generation is slightly differ 


3 A user of 8АХ59 will 


zent 
most likely need to mcdify and tailor his WBASIC program to 


еа 


ry 
Ui 


Ex tull language conmrilers. 


NEU calculastcr constrain-:s and сарас1г125. Warnings are a 


non-fatal means cf providing near equivalent codes data for 
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EE" ccmparison of efficiencies,  capacitiss, or ccnsis- 
tency. Even though tne code may not successfully execute on 
the calculator, 1t stili represents a direct translation 
ASOMAN EASIC and is a fairly accurats indication of pregran 
size, register/label use, etc. 

Unlike a warning, one fatal error will flag the main 
loop against further parsing and code generation. Howevsr, 
eng for tokens continues until the end of the source 
INE US reached. Thus, only a single fatal sy2t2x .erroz can 
ЕРЕ! Ге detected in one BAX5I sxecution, although the 
ЕЕЗ ег will ccntinue to detect any number cf lexical 


en OTE, Fatal  errcrs are 


non-subse-* related. Noz uD re Those p-evicusly 
BE Ured to as errors of opportunity. Duseng: he ccding 
phase of develcpmen:, Simple syntax checks were often 


= 
ШЕ ед into the logic of the parsing routines. Т 
EU cne-line IF-THEN-ELSE constructs which c 
little but were highly protective. For exemple, he 
loop calls procedure PGOTC whenever the GOTO command is 
шап гей. Since error-free input is required, «his procs- 
Zure cculd have b ттеп to assume that “he next token 


een 
t ke a numeric line rsz2ore 
h 


mus nca. instead, it was a Simple 
matter tc check the next tokents үре and call a syntax 
бог (PERROR) if it wera not numeric. Nota, however, “hat 
И СЕ PGOTO will not call an егтог гот a numeric 
Шева which contains a fractional part, clearly a syntax 
рог. Васе, спе cross=conpiler is nos likely ko detect 
an e пазса! Мб гип- 


muor at all. Execution may result іп а 

time егтог. The reason is that the numeric string will be 

converted tc an intecsr value based on orcinal values of the 

characters. The decimal point will appear to BAX59 as any 

cther character. However, its ordinal value will be addsd 

ENERO ccnversion resulting іп an inconsistent integer value 
= 


for the line reference. The routine used to set jump 
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БЕ Ссгес иі! probably not be able +o find the line nunber 
БЕШСЕ 1і is already in error. 

Although often уор есет these EC Or тере 
provided much assistance in tracking system bugs. The tech- 


nique use was tO translate simpls source pregrams known to 


ШИ errect. EECrs, tripped at these check points № _ system 
bugs, E indicated the likely trouble spcts. The 
faulty rcutine had Lelped in parsing either the statement 
which caused the errer or the statement which imrediactsly 
preceded it. през tlic token whi ch zr -poed che error sas 
also kncwrn, the exact routine and che specific bug were 
easily fcund. 
subset related errors шегә defined in the software 
equirenents. The user must be zold where and hew he has 


misused the system. BAKOI Incorporates all J5ASIC kêywords 
Qe Sicr 2.0) in its reserved werd <table. Testes) Leep 
Ш ІС contains the information to distinguish bezweer impie- 
mented keywcrds and unimplemented keywords. ое = technique 
allcws the reserved wcrd table and implemented subset +o be 
easily expanded (or contrac-ad). опса змес аце strengiy 
Supperts the requirement for maintalinaole source code. 

There is more room for improvement in the area 
Excor detection and handling than in axy other a с 
@eos*-ccmpiler. Tuerca rabo а certainly 
и 2отосес- against all possible syntactic a 


meets sc that prior compilation cr interpretation would be 


unnecessary. However, th= benefirs to be gained are ques- 
pronable, аиа: ше and logical dbugcing of- TI-59 
programs is no easy task. Вр с его СІ Error 


message tex: might help %0 reduce some of the awkwardness in 
porticns cf the code which issue these messages. зз 
this file the messages could be indexad by number, thereby 
allowing mcre verbose and possibly cl2arer explanations of 
TOTES. Genezally speaking, the critical resource of time 
forced the design of error handling to be barely adequate 
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Figure 4.3 Symbol Table. 
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semantic rules of the BASIC language which allows inplici- 
declaraticn of variable namss by using then 


Tie inserticn of new identifiers into the syubol 


fame is performed ty procedure ENTERID. Шиас руссесиге 
creates the new slot, fills all fields which are know», and 
links the slot into the symbol table. BeOS ос dun ind 
this process that identifiers are assigned TI-59 registers 
for ccde generation purposes. Function NEWREG handi¢s the 
Bee ter рес, which is actually nothing more thar ап 
merci: stack of integers. An important feature regarding 


the assignment cf registers to variable names is hat the 
user has scme centrel over these assignments from outside 
ELM: gram. Included in the LABELF file is a place cto 115% 
eoSt Numbers which the user wants to resezve for his own 
use. Function NEWREG will nor assign these numbers то 
WBASIC variable names. T 


contrcl feature becores mor 


= 
Ф 


Е чес and power of this 


ф 
w 
ng 
rg 
gu 
Fi 
M 
3 
«Е 
aT 


A Unc TionsS. The user i 


(Л 
O 
Ф 
e 
t 
> 
О 
t3 
iD 
fu 
id 
л Q е 
a ) 
үз 
222 
(Л 
ОК 
14 
(D 
in 


last assignable register number (5 

Semecant declaration block: REG 

ЕЕ ЕС will shcrt circuit ch 

memory overflow warning message, the situ 

many registers are in use. 
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5. Exrzsssicns 


The most fundamental and mosz common construct seen 
ле pars?» routines is the arithmeti 

Many similarities between BASIC 1 u 
TI-59 expressions make them relatively e 
generates. However, a few subtie differ 
 ШЦасзопс requiring careful design. ТЕ 
to learn from this discussion, Mp XS eh 
design, when in dout+ revert to che gran 


ал =р- сиса бс; 


TABLE I 


Production Rules foz Expressions 


| 

| 

| 

| 

| 

| 

| 

ыс ЗЕКЕН 


ШЕХРНКЕ55ТОН> ::= 


< (<BINARYOP> <PRIMARY>) 
CERIMARY> ::= f 

< 

( 


MARY» | 
NUMBER> 


R> 
ION> ) 


4 


+ 


ино WV 


|] РАЈ на 
Win H 


p * 


| 
| 
| 
| 
| 


EDU Г lists the grammatical spscificaticn for a ЯЕАЗТС 
expressicn. The Eo пргодцселове ги есе ia table Т аге 


abstracted by the two BAX59 parse procedures PEXPR and 


FERIMARY. They are designed to parse and generate code 
through mutuel z=scursion. Careful examination of the case 


statements within these prceedures will reveal the differ- 
ences between WBASIC and TI-59 expressions. While both use 
ШЕРІ пстасісіп for binary cperators, unlike WBASIC,  TI-59 
Mia y со<гасогс and function applications are postfix. This 
Moc twist in notaticn adds a little complexity to the 


kine 


(0 


logic of the expression parsing rou S. However, onc 
designed, the code fcr translation of expressions became the 
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fundamental base upcn which assionmen= statements, cendi- 
meenel exttessions, unco = ја Dany Gthss  Ccontrucss 
шта bs byilt. 
6. Unstructured Jumps 
Scuc cf the easiest constructs to understand та 


implement were the unstructured control statements GOTC and 
GOSUE. 2а 1те БЕШЕ Simplicity 1+ is necessary at this 
Ext  -c introduce the code Дате мес аа, Е, 2s 


Eonecrructed by the gsneration rou-ines. 


Illustra<ed Ey Figure 4.4, Meme cade. data Structure 
ШИ регпарс, ths most unique design concept cf this cross- 
compiler. Theres are two types or nodes: «BASIC line number 
nodes and TI-59  keyccde nodss. Si Res на 


constructs in WBASIC are derendsnt upon sourcs line numbers, 
Ете гаа tc be a nethcd of associating the TI-59 ccás with 
tnose same iine numbers. Figure 4.4 shows how lins noGss 
ED -deouodes are linked to duplicaz tais asscciatior. It 
EN прес“ -ап- tO note that the TI-59 code chain is comple-si 

independent (and may be -raversed as such) 5 516 A EAST 
line number chain. The line годз5 пеггіу ртоуійес a frame o 


refsrence fcr the TI-59 code. 


EBEROCEdUTENSETLINE, са теч ар che рези ис рот cas 

ПИ dr.ving Loop, is responsible foz insuring that new line 
nodes ars created and inserted into proper order. Ас each 
Meme is rarssd, special nolding pointers (FIRSTLP, "LASTLD, 
ES NCELLENPCEP, LPLEAL, LPTRAIL, LPCUR, CPCUR) keep track cof 
meee Key locations in the structure As Figuzs 4.4 indi- 
ес, i+ is possible to have lins nodes created and linked 
ESEOr со their encounter in the source code. о 2 ејетен траје 
whenever a іспчата jump (GOTO) US Waz seda Sincai Lins 

Ессе тепсе of a forward jump has not been parsed, its line 

node would not exist. However, тіз jump pointer (JMPP) must 
be anchored to a node. ӘӘ ле ізге nod] and ar anchoring 
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Figure 4.4 Ccãe Data Structure., 
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code псдйе are inserted in ccr 
line. Frocedure SETJMPEXT sets fo 


F1 
(D 
Q 
SE 
О 
ri 
х ет 
(D 
t1 
т 
В. 
O 
t1 
Tir 
4 
@ 
y 
с 
} 
1 
) 
3 
(d 


d 
jump references. Сео Еее, Zsetzeing Abackwazd jumps is 
easier because the line number node has already besn created 
ӘҢ is ir place. ива: а ре no éd -пег ргосециге SETLINE 


always checks its forward line number chain before creatin 


“а 


a new lirs node. If a line node exists whose line rumber 
field (LINO) is equal to the next WBASIC lin2 numter, the 


EC! te used instead. 


:3 


Ihe technique for handling  GOSUB statements is 
similer to Eut slightly more involved than the GOTO. Since 
ШЕ ССӘПВ іс actually an unstructured subroutine call, it 


waS necessary to maintain consistency in code generaticn so 


that the linker cculd recognize the difference between 

Subroutines and unconditional jumps. А11 ТІ-59 subroutines 

are prefaced with and called by a 13521 name. Тнесетоса, 

while initially the GCSUB can be treated as a GOTO, at scene 
h 


[s 

time later a label must ре inserted at the head ct he 

Subroutine body, which is the ncda referenced by the jump 
© 


Outer. This is done during the rssoluri 


ion ty rroc«edure PINDGOSUBLEL. И с зг оку 
insertion is one reason for tha existence of <ha back 
pointer field (BAKP) in code nodes. This operation will be 
Бора іп the sub-section on resolution. 


7. 1ссріпа and Eranching 


E 7 


Weers or BAXSS ake Steongly Urged to practice struc- 


о 


ct 


tured pregqramming when writing WBASIC cods. eae as Paes on 


Q 
| 


and execution on th2 TI-59 are faz mors regular and predi 


table when the input source code is structured and readable. 


Much of the dasign of the entire system is based upon the 
Astur peticn that the scurce program will bs structured. You 
will understand why more thorough tn the section 


describing linker design. 
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Ие Е-322 discussicn of ЕО Тора 226 
Meee nang bY introducing procedure PCONDITION. [e MU Soc 


Games fundamental то the parsing and code 42петаеісп for 


> 


simple Lcolear expressicns (compound boolaan expressions 
have not been implemented). While WBASIC паза 

ЕШШПОП сей сІ boclean operators, che TI-59 does nox. Thera 
was a néed to construct  ef£zicien- sequences of  TI-59 ccde 


13 
tn 
е 
E 
т 
(D 
(Л 
iD 


which aré equivalent to the WBASIC boolean opsrato 


equivalences, shown in Table ІІ, аге implemented in 


TABLETIT 


TI-59 Keycode Sequences Equivalent to Boolean 
Operators 


A <> B А >= В А <= В AD а А 


е 
m ii 
n 
(i 
Е 
=> 
з 
С) 
E! 
x» 
2) 
С) 
t^ 
a 
x 
а 
Е: 
> 
е 


HUU l 02 
і-сіисі 


А <HVE 1 И 


procedure FCCNDITION. While it would have been possible +0 
Gmplerent ccmpound tcolean expressions (AND and OR), the 
ШЕ СІ time and the fact that their togic could be dupli- 
cated using IF statements prevented this enhancement. Te 
NIDO We vez, a very Simple extension of logic to reccgnize 
and translate a negation (NOT). 


In *he implementation ot: a block structured language 


| +. 
{л 


Euch allcws nesting, the use of stacks n important 
technique. And so it was with looping in BAX59. By nature 
loops involve backward jumps. Asuw-neunscruceured jumps, 


there existed a лета to anchor pointers on code nodes whose 
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СЕЮ СЕ С2ае had yet тс be translated. In the case cf іссг=, 
the inverse of this ccncept is also true. There was a 


to create peinters frcm code nodes whose source codes had yer 


to be translated. ішсе = засј=ед 12515. 205 loops is 
checked ty the WEASIC interpreter, it was possibie <о рге- 


create these nodes and push them onto a stack until their 
Place of insertion is encountered. This 15 ехастіу how 
јсорг аге *ransiated using LOOPSTACK and ENDLOOPSTACK. When 


the LCOP statement is encountered, a NOP keycode node i 


(Л 


t ty 


с 
created and pushea crto the ENDLOOPSTACK. In tha case o 


the WHILE statement, а boolean expression is process<d, 
е 


af 
ct 
O m 


Bord reference node is created, a jump pointer iss 
ен псае (for the false branch to end cf loop), aldi tals 
nođe is pushed onto the LOOPSTACK. When *he  ENDLOOP or 
UNTIL is fzund, the stacks ar2 popped and the NOP nodss аге 
2nserted. Ihe natures ef correct nesting guarantees that NOP 
code ncdes popped from the stack will have jump pcirters 
= ferenceing cr will te referenced by the арогоргіа+ є ccde 
nodes. 

Iterative locgs are written by using -he ЕОВ-МЕХТ 
Enstruct. The stack implementation is sini 
described atove. The main difference? is int 
Galculater resources tequired for such a 
nary variable names, the FOR loop variable requires from two 
to three register assignments. The Zıeiis AUXREGI and 
ШИБЕС2 іл the VARIL tagged slot record a 
BHIDOSe.  AUXREG! holds the TI-59 register 


оте the upper (lower) limit of the FOR index variable. 


re used “ог «his 
n 


umber which will 


The FCR index variable increment will always default +o +1 
uses ths STEP optica is used. ТТ ор S sed, “hen 
AUXREG2 will hold the register number which stores tha 
increment value. The user should understand tha? use of a 
MOR” Lec» carries a fairly heavy overhszad in terms сг both 
register and program step use. п № По FOR 
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E Епелі in BASIC translates to use 
9 


Е ег 20 program steps. MOST rhead is caused by 
the run-time checking of the FOR index variable value 
mer jts limit for each iteration through zhe locn. 
Eranehing iS another construct implemented with 
stacks. Тете соге actuüuelly two Tors oz  Dranchira: the 
Bezruetured or line-oziented IF statement апа the blcck 
structured IF statement. The unseructurzes 17 S actually 


only vartially implemented. WBASIC allows 2ither a jump to 


I 
D 
a line number or execution sf any single statement within 
БЕРІ ОО the IF branchss. Because the s E О ТЕ 
Written tc регіссі the same way, it wa Е 
8 цппсстистшей ІР то allcw line junps 
ment. The implementation of line-oriented jumps has already 
been discussed. An IF-THEN-QUIT or IF-THEN-ELSE-CUIT is 
ШОШО Ey setting a jump pointer to the ENDLOOPSTACK. The 
ССТ іс іс force orcgqram control to exit the current locp. 
Enc! :s not witaia a loop (1.8. ENDLOOPSTACK is ril), 
ел ап error condition is raised. FOR loops ars not 
eansidezed lcops in this context. 
The moze powerful of the two IF statem 
EE | = -костигеа IF-ELSEIF-ELSE-ENDIF. PRATS Icono. asa lle 
Mme uss cf keyword THEN, Since it is implied. Once again, 
stacks are used to implement the structured IF. TES 19056 
meas its correspondence to the а ПТО ОЕ 2=-аске 15 
ExUghly similar to that of looplrz. Instaad о 
INM rointers to the end of lcops, they are directed 
EX T-ESEIF or BLSE. Пепин тик је wc. -Jationvoccurs, how 
Ши ле case cf the IF statement. Stack manipulation for the 
M ENDIF pog ga quy differen from Епа rcr th 
EE :-NDIFOor the IF-ELSEIF-ELSS-ENDIF. To ünderstand 
the preblem, asstme the viewpoint of a parser which has just 
Aal uated tke condition of a  s-:ructuzed IP. Ро. 


Е Во kacu члеспег ос aot ап ELSE/ELSEIF or an 
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Mediate ENDIF will fcllow the true branch. То which s-ack 


e) 
Е 
tj 
о 
#3 
Сы 
(b 
1} 


will the jump pointer of the false branch be set 
EN cve- both possibilirzes, a pointer to a node pushed onto 
each stack is rsquired. However, there is only oz2 jump 


pointer field (JMPP) for the code node which represents the 


jump address to the false branch. Our solution uses the 
ФЕР ТСІпТтеі Ііеій (ЕАКР) To refernce a node in the IFSTACK, 
wniie the jump pcinter field (JMPP) raferences а поде in the 
BIDEFSTACK. DESGENUZEZELSEABJUST oertorus [hs resetting of 
Beenters required when an ELSE/ELSEIF is enccunteared. When 
the ENDIF is encountsred, ЕПВ БАКО is sua fora ril 
описе. DESI БАКЕ а ihe eop of the ENDIPSTACK indicates 
СЕС ап EISEY/ELSEIF has be2n seen. This is because croce- 
durée ELSEADJUST is the only routine which can clear ths BAKP 


h 

reference before the ENDIF is sucounzared. 
ihe Gause fcr all the fczegoing К ша is the 

E that IF-ENDIF has a singis2 false p 


Jump past the ENDIF. The tail of ne true branch merely 


Drarch which must be a 


5 1 = through the ENDIF. On the Ezher hand, 
BUSLSEIF-ELSE-ENDIF can have several false tranches, only 
ЕНЕ СІ which may  jumr tc the ЕМРТЕ. Th tails бг ene all 
true tranches must Ее jumps to the ENDI ео е ойи 


ВАХ59 іс designed то recodnize and generate =quivalent TI-59 


ENS for any of these possitilites. 


8. Functions 


The most powerful feature of Ен SAk Cross- 
Ber is the translation of Zunc*ions. Both built-in and 
user-defined functions are handled. шс сео cake rut 
advantage of the calculator's capabilitizs, 12 was necessary 
EN design three distinctly different types of functiors 
ШЕ Litst type, referred to as "quick" functions, are the 
Semon arithmetic/trignometric functions such as LOG, SIN, 


ENS. ithe Stcond type of function haznesses the power of the 
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Ка State Software module. These are referred 
Eng" functions. Both or these first two types are 
Eu --1n functions. The third type is user-defined “paran- 
eee" functicns, which are translated from  ÀBASIC source 
code specificaticns. 

The difference between "quick" and "long" functions 


is basically the number of TI-59 progzam steps generated for 


EN "Quick" functions generally translate *o a one or *wo 


ШІ 


~ 


гр 11-59 keycode sequence. However, they may have as many 
5 


our Steps, Because “hey асек шота "qusck'" runct-cnh 
are inserted as in-line macros. (И мо апа, long“ 
functiors may translate tc as many ав 15 steps. Therefore, 


their length requires that —+hey Бе called as subroutines 
Father than translated in-line. 


Deogetrom thes GIFNQOF and BIFNLF files resrecvavel 


E 


BEEN cds fcr both "quick" and "long" functions is entered 
ENS the symbol table during initialization. BIFNQF and 
BIFNLF may be revised by the user from outside the cross- 
compiler. Бу коиып) - пе Т4-59 кам = ==оке= sequence, a user 
may add his own functions to either file. As a special user 


EE che fcrmat for acdditicns то these files is critical. 


Tha number of ksy strokes іп а function sequence may not 
EN ced -he maximum limit for the type of function. £ less 
than that limit, then the end of the sequence must be padded 
With NOP (68) key strokes to the maximum limit. These 


limits may te altered by adjusting tha system parameters 
ШЕТЕН апа FNLLEN in the constant declaration biock of «he 
ЕЕ(59 scurice code. 


Коз all functions that could be implemented a 


(Л) 


(D 


"quick" have been and are lists СЕВ ЕНОРИИ у 


However, cnly the RND(X) (random number generator) EUnet so 


3 


has been implemented as "long." To illustrate the concept 


Along" function, we will walk tarough the P os of 
END (X). 
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Suppose you desire to write a TI-59 program which 
uses a randcm number generator. по Ишао Ела се. уоч= cwn 
pseudo-randcm number generator subroutine, but the TI-59 has 
ЕЕ rcutine built into its read-only Solid State Software 
ШЕШЕ. Use of this built-in facility would clearly te асге 
space efficient. WEASTECCaTsoshass such a function, RND(X). 
nad nct, it wculd be possible to write one in WEASIC 
using the DEF FN RND (X) Statement. ВЕ ас Iit 
ШЕП be necessary tc zemove the funcuion  definiticn bl 
amd eplace the FN_RND(X) calls wi:zh RND (X). ECW 


e 
is not required in cur example. You must ensure that the 
TI-59 registers used by the Solid Stata Software module tc 
Ehe RND() function are reserved in the ТАБЕТЕ file. 
ШЕ пасее с) оп can be found in the Master Library Manual 
РЕС. !|, which is the Master Solid State Software neduls 
reference guide. мала ses ases 01702, 03, Оа, 05, 
ШЕ апП 09. "Long" functions always takea a single parameter 


(4ven if it is a dummy). Register runder 10 has been desig- 


патей то store this parameter and should als» appear cn the 
reserved list. This parameter ragister assignmen= may be 


ћ 
enged in system parameters of the ВАХО9 source code if 


desired. Hee Dea ЕТЕ О es zeneounrer>d machi the |WEASIC 
ENUSCE prcgram, ВМО (3) will translates as a cali Фо a subrcu- 
E whose single parameter is stored in zegister 10. The 
вес tije seen, the END symbcl <a E а ке о 


i be 
nelusion cf code gensra- 
qu 


а 
Ф 
Ж. 
y 
i 

( 


Euer, FNLLIST will be traversed and the key sequen 
ER cutss ЕМГ (Ф) as well as any cther "long" functiens on the 
Meese Will be added to the code data structure as subroutine 
Bodies. 

са! power Of this тасіізк liss in its user- 
ExUtrclied flexibility. The user may convert а 
Meogram function in the Solid State Software module into а 

do 


Single parameter "long" function. А11 he must 


51 





ШӘ ссггест гедістбегев in the  LABELF file, Е EY 
 ИЕЕПсе in the  BIFNLF file, ага, if necessary, fix the 
EN cf all but cns of the function input parameters (o 
create a dummy). ВЕС 101 СО-- Пот екісі: in WPA 
Шо па must write the DEF block for it in ordər to check 
вата correctness prior to translation. 

Having strayed frcm implementation design  tcward 


system utility, we new return to implementation discussion 


aO called "parameter" functions. The name given these 
user-defined functions applies more to how they are imple- 
mented rather than tc their nature. The parsing rou-izss 
always expect parameters DUI O not require *hem. 


Parameterless functicns are, indeed, recognized. 


M 


Although the czoss~compiler wili cerrectly transla 


( 
íD 
(t 
(D 


NEN UC-:ca Asfiniticr (ПЕР 5 Ecc Du oc whether it 


men 
ШЕПТЕ befcre or after its respective call, the linker 
requires that all surroutine/function bodies be placed after 
the main pregran. 

преп а new function identifier is tecognized (by the 
ШИ" Drefix), = new FNPID tagged slot is created for the 
Eunbcl cable. Procedure GENPARM is then called upon to 
parse actual parameter expressions, Generate code which 
ШЕ С га their run-time evaluaticn, and construct the fermal 
parameter list. Parameters, if found, are linked in order 
EN c FNP r:eld of the symbol cable slct for the function. 
Whiie registers are assigned to these parameters, the corre- 
Sponding formal parameter names cannot yet be entered since 
fey асе nct known until 252 function DEF 
ишла. Ncte that formals are assumed to natch actual paran- 
ГЕ Бу both order and quantity. There are no checks in 
feos tO insure this correctness. Only 


a 
WBASIC interpretsr will verify parameter correspondence. 





ШЕН сле Ст: Оз Gstinition is found in thə ГЕР 
statement, a process similar tc parsing the call takes 
place. Ihe formal parameter names are now inserted in-c the 


parameter list attached to the function slot in the symbol 
оце. Before the function body is procsssed, the slct is 
waned onto the FNSTACK. This stack simulates an activation 
Cord stack. каспер рте сок Up that =s performed by 
procedure IDLOOKUP requires that the FNSTACK be examined for 
active functions. If a formal parameter name is found in an 
вме function parameter list which matches t 


Oo 


h 
pang scught, then its register assignment is us 
generaticr. As a result, standara rules of va 
су and scoping apply. When the and of a fun 
(FNEND statement) zcEEercountesrame thes function sló 
раоррей Згса the FNSTACK and its formal parameters are по 
longer visitle te the run-time environment. 
5 


As a final ncte, the user shoulä krow that "раггп- 


2” 
(0 
|: 


ever" function names receive their own register assignment. 
Ber register is the place in which the final value cf the 
Eumction іс returned. В ео. 2егбед during run- 
ШИ just prior to the execution of the function cail. 
However, after execution the value in this register persists 
ШО the nexc call cn the function. This corresponds to an 


ЖЕСІ situation in she WBASIC -ua3-fime envirzonmen-. 


EE de s-scluticnh 


If the physical end of thse WBASIC source program is 
Mmemened, or if awWBASIC END statement is found, parsing is 
ШО рреа, the bodies fcr any "long" functions used are gener- 
ated, and the code data structure is closed out wich nil 
poonters. n NE hlc сол; the code resolution phase of 


Semoiliacticn begins. 
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ПЕ ЕР ав тессіп:іоп is to locate and insert 


ШЕСіс ат the destinations of all unstructured subroutines 


о 
U 
c 
UJ 


(SBR) calls. These, of course, wer= generated by 6 
Statements. Since GCSUB is a line-oriented jump, then there 
is a pointer in the code data structure referencing the 


destinaticn of that jump. Procedure FINDGOSUBLBL trave 


ІЗ 
{Л 
(D 
(Л 


 ФССПпес data ncdes searching for SBR keycodes which are 
follcwed by a node with a non-nil jump pointer (JMPP). A 
very complicated check is made to ensure that the SBR label 
has nct already been inserted by an identical SBR call. ЕЕ 
ШОО tkan the back pointer (BAKP) is used by procedure 
ENPSOSUBLISBL to assist in the insertion of tne label at th 

jump destination. Once the insertion has been completed, 
the address field (ACDR) of the JMPP tarcet is set from zero 
to negative one and tre jump pointer ( =т= ое 


c been 


© 
MINS signifies to other routines that this ju = 
Gree. he cede 


resolved. The perecess continues until the end 
data is reached. 

Mie next step i2 resolution 25 ro pezfozm a special 
Ed o: TI-59 "peerhole" optimization. The most ccmıaon 
forms of excess parentheses pairs are? removed. Suca forms 
eee: ony’ and "(2.3335- 12)" will haves been generated as 


and 


сі 
{Л 


a resul- of parsing even Simple asSignaent sta-temen 
expressions. Since the parentheses in these expressions are 
unnecessary and use up valuable program steps, they are 
zemoved, rrcvided they arze not referenced by a jump pointer. 
If referenced Бу a jump pointer, the node's address fiel 
ООВ) value will Ее 0 instead of -1 or -2. Removal o 
these will cause dangling jump references. 

Looping and ranching generate many place holding 
МОР keycodés. These are also an unnecessary use of program 
steps. Hcwever, remember that almost аі! сі these were 
ganerat=d to anchor cr project jump pointers. Thus, рес све 


removal their jump pcinters must be reset. Procedure OSQNOP 
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passes over the code data twic 
ага from NCP's, and the second zt 1 де г 

МОР' =. шесто протона о сас те that thers 26 a distinc- 
tion betweer a uselsss NOP and one which 

label identifier or a jump address place holder. Bec 

the TI-59 requires +hat particular kaycodes be Е оче 
labels, register nunksrs, or addresses it is ea 
keyccde usace. This information is actually lo 
ши па! :га--оп into the UNIT field of the  CODET 
EN ап anteger Q0..3 which indicates whether the TI-59 code 
ШЕ іс а опе, two, three, or four keystroke instructicn. 
This information is used to pass over keycodes which are 
Еш г=а parts of a larger instruction. 


The final stage of resolution is то convert relative 


jump (pcinter refererced) addresses inte absoluts (numer- 
ical) addresses. This must be che last stef because 
previcus ccde inserticn/deletion routines constantly charge 
absolute addresses. ACRES MUS о р ог 
deletion cccuzs. Frocedure RESOLVZ ADDR passes over the 
Сб9 = data twice. The tirs- rass ен ере над тег5= Fields 


(ADDR) of ali code nodes in sequential order starting ar 
000. Now that sach exact absolute address is known, all 
jump pointers which ara still marking address space апа 
referencing a2 destination node can be resolved. А ТІ-59 
codad adüárzess consists of two parts. During zhe second pass 
Procedure INSERT _JMPADDR is calied at non-nil jump pointers 
to read tte destination address, ЕРШШ СЕБ Ено 
nteger parts, and insert the parts into the address space 
ncdes. Cnce all jumps have been resolved, the cede data 


бшшесшге is ready fcr output and linking. 
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ШЕРІ. -чвсесттоп we discuss “Ewe input/ouspu- 
meet ed lssues: Implementation of І/О constructs ard CETiON 


messages to the conpiler. The limirs 


а 
a 
fu 
"о 
f» 
o 
j 
pa 
{> 
if 
{> 
(D 
in 


© е 
 ЕПТатст required that file handling and string handling 
шесте cf WBASIC Ге eliminated from our su 
similar reasons the I/O constructs which could be translated 


meen wEASIC required restrictions. 


Wee ws the WEASIC I/O Statements INPUT and  FRINT 
rormally previde for file managenent the ВАХ59 irplenenta- 


tion cannct. The crcss-comnpiler S PRINT followed 


1 
iD 
(а 
О 
п “а 


ize 
by any number cf simple expressions ne Бу commas. 
The TI-59 ccdée generated will evaluate che 

Beint their values (to either he display register cr the 
Техас Instruments PC-100 Printer Cradle). On the 

hand, che INPUT statement takes any number of variable iden- 
tifiers separated by commas. posmccneccnhesirlse* Xn ере 
ЕТ list, the TI-59 program halts execution, isplays tae 


register assianment for that identifier, and stores the 


) 


| :• 


inpu*+ value entered by the user in the register assigne 
Man рЕсагаше =<cquize che Esading о: large ancunts 
та, Crcen at the start cf execution. Іп this situation 


tha INEUT statement tends to generate an excsssivs amount o£ 


program ster overhead. nless the program is designed +0 be 
interactive, this cverhead unnecessarily increases  TI-59 
program size. ma c der tOo provida a mote space efficient 


means cf data entry, a limited translation of the WEASIC 
CATA and READ statements was designed. In sone sense, tnese 
Bead ements provide a substitute for zile handling. The DATA 


Statements are placed at the beginning cf the WBASIC scuzce 


psograma. Each statement may ое followed by numeric data 
izems separated by ccumas. The total number of data it=as 


in one program is limited то the number of unreserved 
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registers availiable in the calcularor (based upon the syste 
parameter REGBASE). Ше рас Іп“ iS exeseded, а n 
message will be issued. READ statements taks variable iden- 
tifiers and may be written with the DATA staten S 
however, the number of variables input то READ statements 
should never exceed the number of data ite ns provided by 
DATA statements. This cendi*son will also cause a warning 
message and further CATA/READ statements will be ignored. 
The parse routines паке register  assignmen-s to the vari- 
So] the READ statements, end concurrently build a list 
which maps the data items to their respective registers and 


variekle rames. ЕЕЕ ЕЕЕ СЕЕ OE Mica Compiler ситрит. 


Е- 


ІШ ле list the user can pre-load TI-59 registers with 


numeric values and ke assured thet thay will be ір сс=ге- 
Peeadence with ne translation of variable names. Mere 
p 


шпростагтат, о аа 


рсасаш  <с-ра ате used fo? this 
Ши па! input. шо Тест, cue Часа coula 'be read #-спа 
ШИ ЕСІС card into a memory bank prior so execution. 

As we have previously implisd, there are many forms 
NUS put which can be generated by the cross-ceompíler. 
Additionally, the user will prebabiy have to do some desbug- 
в пс. We have chosen tc provide a pzimitivs se~ of tools 
E crtions which can be toggled on cr off from outside the 


feo? сситсе огосгап. The toggles ars sst or reset by using 


the OFTICN statement in the  WBASIC program. Caution! De 
not cenfuse this statement, which is uniques to the РАХ59 
czoss-cempiler, with the WBASIC OPTION statement. They ars 


not tte sams. BAX59 does not recognize WBASIC OPTION paran- 
eters and WEASIC does not recognize BAX59 OPTION parameters. 
Ке III list “he possible  op:2ons available tc ВАХ59 
users. ПОМИ одда! е the options, simply include ап ОРТТОМ 
по а= хе first lins of the program to be translated. 
rameter settings should follow the OPTION reserved 


a 
arated by spaces. Positive parameters set the 


37 





— mn wu = = саар = = — > — A eee eee ee eee 


| 
| 
| 
] 


TABLE III 
BAX59 OPTION Statement Parameters 


| 

| 

| 

| | 
| | 
| | 
| Parameter Opticn Резаш | 
| +0 Generate linker interface file false | 
+ 1 Generate code for PC-100 printer true ! 
+2 Optimize out unnscessary parentheses true | 

ШЕ +3 Cptimize out unnecessary NOP's | erue | 
| +4 Шыл оса тт 59 Ecde то list file тте | 
25 Шщаце сс сәулесі teble zo list file . Саза | 

| +6 © лот cecde Struckur> zo list file false | 
| +7 Each lexical token то terminal га! зе | 
| +8 Each lexical token то list file false 


toggle true; negative parameters reset the toggle false. In 
the Case Of the zero parameter, the sign has no effect. 
As a final тісте, an CPTION statement may nct be 
„ЕСЕД in the WEASIC source program until it is ready Гог 
Seenciaticn. Also, placing an OPTION statement in any line 
u 


M the first may preduce unprediciable res 


Eee LINKER 


The linker's purpose is to produce a segmented version 


Smee ne compiled code and presentz ths code in a format th 


a 
15 user frierdiy. ваниле соша= e catod used со accomplish 
this was discussed in the preliminary design phase of 
Chapter III. тле detarled design that supported the solu- 


tion strategy called for the linker to operate sequentially 


ct 


throuch three major phases. ieee aguce 5,5, ер ее © Un 


diagram for the linker is presented. The preprocesscr phase 
Meee the linker includes actions from some of the SYSTEM 
UTILITY  rrccedures and the BLD SEGITBL procedure. The 
remaining tw procedures, COALESCE and INSTRUCTIONS, 


accomplish the segmenting and postprocessing activities. 


58 
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L INKER 


“ep ey SP ee ee OP ee ee ЕР = сыр ЕР о о LE «ит чыыр «ит > => 


} 
| 
| 
These procedures are enclosed ín deshed lines because they 

| represent a conceptue! grouping of system utflfty programs. 
i Ae such, no actual scoping lines exist where the ceshed line 
| 1ine occurs. 

1 

{ 

i 


pna————————————————————— AA — € 


BLD_SEGTBL 


E ЕЕ O 


|. INSTRUCTIONS | 





| 
| 
| 
| 
| | 
| 
| 
| 
| 
| 
| | 
| | 


ee O O A <a 


Figure 8.5 Linker concour, 
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БЕН СІ trese major actions wer2 described in the prelini- 
Mary design phase in Chapter IIT. Шпее а ей design of 
mece  srecific cperatiors will be presented in the next 
sections. Only those major design consideraticns required 
for understanding the operation of tne major operative 
phases will be presented. 


1. Егерісосесзоі 


às was menticned іл the prelimiaary desicnr, Ens 
primary ¡purpose of the preprocessor is хто геотовосе the 
compiled lirked соде ist and аглегате а table that repre- 
sents the sequential segments of the compiled ccde. 

The informal strategy called for a =wo step opera- 
коп. In the first step,  -extual Integer pairs are reac 
ош ап input file into a data record. Boch record 25 
кед list which 


reduces the linked list of code generated Бу the 


о 


ШЫ сеа сс the preceding reccrd forming a lin 
 ірііс:, The next step evaluates the linked list to deter 
Meme Whers the sequential segments are located. Information 
concerning  esch sequential segment is stcred in  anc-her 
тога ard linked to the receding sequential segment 


Bord, thes forming a linked list cf sequential segment 
= 


Be erip<icn гесесг 95. Evaluation for sequential segments 
а occur Бу TI-59 labeled subroutines. Беси tase об 
sequential segme records would be pointed то by a header 
record which contains the subroutine name. Баса cr these 


subrcutins name heade records would be linked “o ctner 


(D 


Subroutine name header records in the same crdsr іп which 
they weze detected in tne generated code. 
Па Іс == уез needed to support this 


strategy. Ihe first Structure comprises a linked list ОБ 
mecords. Hee eC COMONGORnSaamS all — the infesmation that is 
em ained in one recgran sted in the 11-59 calculator, 


Mmebudiig the address of the instruction and the instruction 
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НЕ сесае. ach record is linked +0 the £ollowizg сзссг4 


by a dynamic pointer, which captures the sequential natura 


Оз 
th 


EXE he ccariled code. Е = удавље Link 25 provide с 
those reccrds containing keycodes that may cause tne flcw of 
ЕТС. tc change frzcm a sequential flow. The genersted 
linked list of records is a comolete internal re 


cf the ccupiled code 


A second data structure is needed to represen: а 
sequential segment cf code. Vital program corticl flow 
 бтпасіспі 015: he captured by the structure so that 
segmentaticn rules may be applisä during linker procassina. 
To accomplish this a sequential segment table was developed 
Шар тъпа а record  fcrmat то desczibe each segment. This 


table record holds data such as Segment start addrass, stop 
address, whether the segment is covered by an iterative 
НК ООБ, a list of forward jumps and a list of subroutine 
invocaticns that originate within the segment. Sach ome of 
these records SSA ока o. ће following сзеацепесат 
Segment's record. In addi riol, the sequential segment 
Meeords are grouped according to subroutine. Dust 19t*9 
say, cnly those sequential segments residing within спе 
Meo subroutine definition are connected toasther in 


 іпепеіа!1 сіізг. 


The linked sequential segments are tied together by 
Bar records of +h2 same basic type but different variants. 
Been subrcutine 92006113 ОЕ sequenti2i segment records is 
ЕЕ еа tc ty a linked list of header nodes These nedes 
Sencain the name of the subroutine and the subroutine defi- 


nition address. Each header is linked +o ancther subroutine 
Meaeer in the same  czder in which subroutine definitions 
Beeur within the gensrated TI-59 code. 

Тс caepvuse information relaciag тс forward jumps, = 
Dant ort the sequential segment record +5 used te build а 


Borward jump list. ЕЕ опна зс пе Originating 
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 ЕЕсс сі the fcrwazd jump and che address or the instruc- 
шаси со which contrcl is transferred. Because the actual 
jumr address is used, ПИО ОО cher jump Location is 
termed relative. Each jump node is dynanica ex Шап сел се 
RN CWing jump ncdes to form a jump list. Шри взет. зе, in 
turn, dynamically ocinted +o by the E Segment in 
Witch tre jumps criginate. 

еи сарсиге information regarding subroutine inveca- 


5, the same type of structures is used as for the jump 


pod lists. The only difference is that the subicutin> 
Diets pcint to the invoked subrouriín= in a dynamic marrer. 
Mee 1S to sey, that a dynamic pointer is set со the first 
sequential segment of tho invoked routine in the sequential 
segment takle. This is basically the oniy difisrexsce 
tetween the subroutine invoke list and the forward jump 


10 


Figure 4.6 is the contourz agram of a conceptual 


A 


di 
EuUuDp-ng cf procedures referred to as the SYSTEM UTILITIES 
1 


ШЕШІ. These prccedures arte no- sxplici*ly g-ouped togsther 
code; rather, *be groupin == со faezlTItare discussion 
ard urderstandind. There arse several oparations within this 
Exxup which manipulate the data objects. 

Пете за “ће | пкеа содо: за code lis: of records 
tWO Serarats procedures аге used. DNE а с  SEOCedure is 
called INPUT. ТЫ МЫ ссеайпгә builds the ianiztial linked 

ВЕ. It utilizes aa inpur file containing the integer 


= Trerrssenting TI-59 code steps. Essentially it creates 
шаси гесота for each pair and links the previous record to 
the new reccrd. Е по спе 15 the setting of 
 ЕПсегс tc represent ап indirection in the Elow of contrcl. 

шесі те пе цер of the procedures SET JMPS. Drops 


Escedure, the major activity is the datecticn in the actual 


ШЕСІ е pcrtior cf the conpile сошеног ал - зе пе -1ол тај 
тергесепес а possibles change in control flow. When one is 





Ee Sl em um em nm ln xc cL cc e n mm t 
! SYSTEM UTILITIES | 
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HANDLE, JSTEP DIAGS NESTILENGTHCHK 
PRINT. CODEL IST RESET. INCLUDED 


INPUT FIND_MSG 


SET_JMP DIAGS NEST1SBRBRK 
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Figure 4.6 System Шелізсеізе Contour. 
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ЕЯ, a jump pointer (the indirection pointer) is sex 
ШЕ ЕСІП to the reccrd containing саз rex- TI-59 prtecgran 


step to ke executed. 


The operations which create The second data cbjec- 
аге а 11+-1е more ccumplicated and are contained in Figure 
4.7 The action of 1411411493 the sequential segment table 
Ex a structure is  brcken down into three steps. The first 
step begins the formation cf the table while the second step 
completss segment detection. The last step cap*tuces crher 

a 


Entormaticn and ensures that internal interfacing require- 
ments are met. 

Be Ірге: Miers о: this procedure is acccmplished 
through the BLD_ERIMSEGTBL сгоседиге. This operaticn passes 
over the compiled codelist structure and determines where a 


Subrcutine starts, stcos, OT issues a back jump command, and 


Шасатес the terminal points of the back jump commands. Zach 
Bec nese points is called a critical point. Wher detected, 
БЕЗЕП critical point is inserted in the segment takie data 
ENCcture under the beader nodes ccntaining the TI-59 subrecu- 
tine code name which is being pIocassad. ВО степ, each 
пе јипр commands wich their initiaticn Ed) v= slates 07 
points are inserted into the structur:. This completes the 


first major step. 
1he second oreration is accomplished through the 
BEDFALVSECTEL procedure. In this procedure the initialized 


data structure is fleshed out. Шр Ос опту critical 
points have been inssrted. As these are points and are not 
double ended, segments have not been delineated. PRs 


procedure examines the segment data structure and adds 
points tc delineate where a segment starts and ends. I: 
fees this by subtracting one from the peint Zollcwinag it and 
Bake 1G chis to bs its end point. This results in a series 
oí recozds wnich are all covered by an iterative backloop, 


men the excepricn cf the first record. Misses 2S nored in 
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Figure 4.7 BLD_SEGIBL Contour. 
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Bec reccrd. Next, th= procedure =xamzn= 
structure and determines by examining the addresses whsrs 
there are holes in the table. These holes 50522552014 to 
sequential segments that are not covered by an iterative 
Back lccr. These reccrds are then inserted into the st 
ture. Lastly, adjacent segments that are covered are merged 
to fcrm cne record representing a sequential s@gméen* that is 
covered by the largest iterative backloop. 
The segment table structure is completed in the last 
meeecdure, called ELD_FINSEGTBL. пп = nas ie 
 Іпату things happer. РЕ C hoo SERSEGT EL Vsvaldates 
the ccmpiled code list and deternines where forward jump 
w Subroutine invocations occur. LEER сса 
tions intc the proper sequential segment that covers the 
area where Не са os 1599cacion ЕССЕ Е | 
Sar LENGTH checks that each Sequential segment dcas no 
ШПОЛА теє һе memory size limit oí the calculator. I- dces 


ENS Ey checking е sequential segment record and calcu- 


ach 
lating a size. If the size is tco great, then the segment 
is divided in half and a new зедизг- is inserted int 


5 
People, This is not аспе for sag 
Ee ative lco as this would сэр 
Ше іоср. Cther acticns that mu 


г 
ШО чата jump lists and subroutine invecation li 


сі 


+ 
Е: 


Es 
@eyasicn dces occur. One interesting point wor 
that when the length check is made addi-icnal steps mu 
 ссатей сс the actual length <tc ccapensats for the pessi- 
EN y of Prompting ccde being added for an invecation >с а 
Subroutine that does not currently zeside in memory. This 
is the purpcse of L_FCSSBRK in Figure 4.7. 

The data structure operational proceduses acces 
ЕЕЕ Есгпсспгес through pointezs which point to tha struc- 
His. The pointer tc ths compiled code list is referr 


mee OUILT CODE. The pointer to the sequential seqment takle 


66 





ШЕГПгГе is called SEGTBL. These Е НЕ Only data viici 
are passed among procedures. one POIt CO гецетрег is thart 
SEGTBL pcints to the header nod2 list containing zhe names 
of the subroutines. Thè ас%из1 sequertial segment lists 


reside underneath the header nodas. 

Since understanding the data structure a 5 
Seems ruction is essential to understanding the remainder of 
the linker, an example will be examined to demons=rat+te the 
preceding sections. 

шерге а гапр:е topology of а ТІ-59 ргсатап 
Memgaven. It includes four subroutines of various sizes and 
Ме тат:сиа= control flow inditrections. ІП l ooking at nhe 


diagram it is important to note the absolute address loca- 


а, 


Bene given, for these will be critical to understanding the 


develcement or the sequential tables. 


As was mentioned, сен бокс." Operation з= the 
E cucturing of the generated TI-59 code. Figure 4.8 
represents approximately this structuring. шестица: седе 


Meme 1S rebuilt internally in the machine and is pointed to 
ENEUC2Inter EUILT CODE. 

НЕЕ 8.9 16 —he conple-ed sequerztzel  segmen- 
Ee, without the linked header node list. Шел 01 
the  ccncept o? sequential segment a con 
Figures 4.8 and 4.9 must be mada. тава си 
sequential segment is defined as being be 
ШИ 089. This is reflected in Figure 4.8 
the sequential record one sees that the forward jum 
MERO E js captured in the fcrward jump list node which, 
this case, ioe omy some node longs When lcokin ат che 


second sequential segment one notes that there is a nested 
m 


pack jump. The sequential segment is defineä t0 be tha 
Segment which is covered completely by back jumps. ee ens 
Case it extends from 050 to 199. БЕ ОЕ ЕОШе reas 


Mees FUMES shown in Figure 4.8 did not fuliy contai 
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тест, that is to say, one jump started at 199 and 5<соре3 
ВЕ 090 and the other staried at 150 and stopped at 0 
ШЕ ссуест wculá still extend from 050 xo 199. The reascn is 
5 this region of ccde is probably caught in an iterative 
loop and cannot under any circumstances sustain е break 
een this cover. 

Another point to be made ls the manner in which sach 
subrcutine's sequential segments are recorded together. in 
БА - 105 cach invocation 15 recorded as is each forward 


jump. У ВЕ СП о Of he table, invocations to 
ШЕЕ rcutipnss fren different invocation locations are 


( 


deleted, thus leavirg only one link to the called routine 
for that sequential segment. 


(t 
Эт 
^ 


STO UNE concerns tha recursiva nature of 


ct 
=: 
ФР 


Euctur-e. Ea SS UMD that the first sub-outine 25 


En rcutinse and that ll other lower level cutinss a 


r1 
iD 


а 
below it (in the sense that they are pointed to from invoca 
tion nodes) one can see that any reutine used ro combine 
segments can be used on апу Subroutine's sequential 
ements. This cpens the door for recursion to be used ina 


NO tCco ur recombinaticn scheme to be discussed later. 


Many protlems were encountered in the develcrment of 
Mie Clreprcecessor phase of the linker. Оп ue most diffi- 


2 от annoying will be discu 
Cne of the first problems concerned the  mui-*irle 
пе аепегатеа 21-59) ccds:. A 


Separats TÍ-59 program step may be either a command, 


Meaning cf program steps in 


Megester number, flag number, or part of an address. The 
meaning is dependent on the last valid  ccumazà. Commands 
Can affect the interpretation of a program step as far as 
three step positions away (analogous to tha concept cf crne- 
ве, twc-byte, and three-byte instructions in assembly 
Eode). This had to be taken into account when dcing any 


Eueraticn requiring an interpretacion of the code. TIERS 
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SEGMENT TABLE МООЕ 
(SIGNIFICANT FIELDS) 


START_AOOR 
STOP. ACDR 
S8RL IST 


F_JUMPL IST OR POINTER TO NEXT 
S8RL IST NOOE INFORMATION PTR 


ABSOLUTE POINTER 


RELATIVE POINTER 


NIL POINTER 





Sequential Segmen*+ Table. 
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~ 


resulted in special ccde sets being initialized and special 
routines being writtsn to print our labels and move che 


Sempaded cede jist feinters. All of =пеѕе ас shown in 


d 


Figure 4.6. 


Imprevements in this operative phase could be zeal- 
ized. In the early stages it was decided =o 3eparaze the 
compiled code lists from the segment table lists. This was 


to avcid accidental tampering with the compiled code, since 
Ame integrity of the compiled code was the paramount consid- 
eraticn. БОС ЕИ Ее рогошеје 59 шаке the compiled ccde 
lists a variant of the segment table. Then, ins+e2ad of 
ШЕЙІТ celative pointer indexes to compiled code addresses, 
an absolute pointer cculd be used. This may reduce ch 

EN the program significantly in that types would new be 
compatible and a reduction in the number of output routines 


due tc the different types would bs realized. 


2. 589182010 


r1 
ct 
рг 
(b 


Afte input file has been preprocessed then the 
linker passes inte the segmenting phase cf the operaticn. 
EU rcutines that support this phase are built into “he 
Fascal рт пле a EdE COALESCE dopi cced in Figure 4.10. 
informal strategy called гот the sequential 
Segments сЕ а subrcutine +o be combined то form larger 
sequential segments. This recombination would be allowed as 
long as mencry limits were not violated. This required that 
МИМО Кеа subicutines Ге combined first before the caller so 
as =O makes room for the invoked routine's code. ТЕ the 
Iinvoked rcutine could not reside then a break wa 

mee agynamic link to the invoked routine and prom 
Bed с the caller's length for memory size checking 


purposes. 
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Figure 4.10 


ТАЎ. 





[rx xd has one major requirement: us 


{Л 
t4 
gi 
с? 
(0 
ча 
rt 


Ш (Әкей rcutine must te reccmbined before the caller can bs 
meccmbined. Fer this reason a racursive solution was 
adooted. ПИПИНА со ОП у cune main subroutine is reccp- 
Баце. ЕЕ раса of the гесошрапат ог process is + 


С с 
ensure that invoked Subroutines will -zeside with the calling 


er 
СЕ 
= 
f» 
(+ 
pa 
(Л 


sequential segment. If a subrcutine is encounter 

Memmecombined or coalesced, then the program will rec 

the new routine. Recursion will close out upon con 
ine. When all the 


tial segments have teen checked tran adjacent segment 


ENCcalescing of a particular rouctia 


combined. 


(ране rent СЕ the Strategy cdlls for +he conmtina- 


Beem process to stop when a size limi- is encounterd. When 
this harpens then seme sort of break notation must be used 
to mark where the limit was exceeded so as to prevent 

parili- 


5 
produc-icn cf code segments that exceed tre memory ca 
bes 


Sees CL the calculator. After the breax has been sat then 
Ehe process of recombination begins on the other side cf the 
break with the non-ccmbined segments, starting again with a 


MEMO E y lirit of zero. 
ВЕ cftobreaking ала checking limits result 
E 


е 
in the sequential segment таріз оаза break points. 
a 


These break points delineate the exact locations where 
атап Seqmentaticn will cccur. These points will mark 
EN --  porz*tions cf code which can fit in the calculator 


ЕТУ according to the rules of segnemtaticn  cutlined in 
thes preliminary desiocn. 

ШЕЕ паса она пите сера Supports this Strategy is 
the sequential seqment table. No other structure is used. 
Mew cnhiy addition іс the structure is the node referred +0 
as a subroutine invocation break node. Thi 
inserted between a subroutine invocation 


invoked subrzoutine sequential segmen? + 


ша 





changes то ре “Әсгис-пте anvolve. removiag nodss and 
combining adjacent information into one node 

ПШ егте e tuo major activities that supper: the 
above strategy. Пан зе сусу 15 the Checking of a 
egment and the second activity is the cembining of adjacent 


segments. Overseeing these activities is a single driver. 
This tcrclogy was suggested by tbe recursive nature of the 
ENuUtion. The procedures which support these activities are 


shown in Figure 4.10. 

Ihe driver is represented by the Pascal procedure 
BOALESCE. This routine is called whenever a new subroutine 
is encountered that has not been combined or coalesced. The 
ExXSrjor Pascal е CHK SEGSIZE. verifies "'tza- che 
ВТС segment it is looking at together with all called 
subroutines on the subroutine а тес ы ісер that 
segment, will reside in calculator memory. This poutine 
Meee, SBRSUM and SBRSUMLINK tc determine the lengths of 
invoked routines. нове те ООА У оу Сат ла COALESCE 
EN Ne event that an inveked rcutine has not yet been ccal- 
esced. It determines this by looking a C n 
the segment table. This field is set tr 


has been coalesced. terre procede, COMBINE, асссп- 
plishes the actual combination of adjacent sequential 
segments. it uses the Length оса стот routizes 
 Е5ПИТСТЕ JMP and MOD SUMTOTSBR +0 predict а comkired 
ШЕЙСЕП which takes into acccunt any changes thna- might cccur 
EUN he subrouctine invecation or forward jump lists. Tf the 
пред Jlergth is within limits then a recombination 
cccurs; if not, fointers are advanced. This méans that any 
Г 


sequential segment records which follow the initi 


а 
tial segment records are е of a new memory cal 
a 


In other words, any sequential segment links that are гот 
fee represent a break between the linked sequential 
segments. Upon Exiting COALESCS the subroutine that has 
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just been coalesced is marked as such in the sequen 
EEcord's bcclean field reserved for that information. 

То visualize the result of the segmerting phase 
another lcck at the example is provided. Figure 4.11 zebre- 
sents a segmentation based on a mamory limit of 550 steps. 
ced 


into a single sequential segment. Also note that a treak 


Цене that each of the invoked subroutines has been coales 


was made in the main subroutine. This is shows by the fact 
ШО the Main routine is nct a single segmenz= record. Ву 
examining the table it can bee seen that the routine 
labelled "C" will be copied twice when the two memory sized 


segments are produced. 


To interface between modules in this recursive envi- 
ronment several things were assumed or used. The first was 
that the data structure would serve as the repository of 
global data. в о, а Variabis would ве used “о keep 
EM ОЕ “ne current size of che compinirg memcry proqram 
steps. This variable was passed as a parameter in order to 
preserve its value throughout the recursion. ATI eeinters 
vera passed as 1сса1 parameters. This preserved iccations 
Ie data structure as the algorithm progressed th-zcugà 
weai f ferent levels cf recursion. 


These operations did require 5 
meager tO obtain valid data hat 

ШЕ lengths to include multiple с 
problem cccurred when there we 
same subrcutine from different se 
Subroutines) that ug TO now were 
memory limit calculation. To solve thi 
placed in tbe segment reccrd to indicate whether cr no 
Perpeicular routine had been included or net in length ca 
lations. Whenever a sum was calculated and a Tcutine 
included then the field was set true. Whenever a new memory 


limit was reset back to zero following the implantation of a 
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LEGEND 
SEGMENT TABLE NODE 
(SIGNIFICANT FIELDS) 





F .JUMPL IST 


e T. 
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START. ADOR x 

STOP _ADOR Т 
586. 151 


F.JUMPLIST OR POINTER TO MEXT 
S8RLIST NOOE INF ORMAT TON PTR 














ABSOLUTE POINTER 


RELATIVE POINTER a a a e a e e e 


NIL POINTER 
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Figure 4,11 Coalesced Segment Table. 
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ШООК рсіпс, a SYSTEM UTILITY procedure was useđ to -sse 


all the included fields back to false. This means thar only 
ee Cty Cr a subroutine would be considered for sach calc 
lator sized memory ccmputation. 

Future  implementaticns should develop а better 


methcd fer recording whether a segment is coalesced ог 
included. пио рејон о пале tieid in the segment table 
ш-сога was a "quick fix." This fix results in wasted 
806 as it is only used in the first record for each 
subroutine. An improvement would be to use another variant 
Шта tc record all current data, wich the зхсерслоп о 
coalesced and included information, for all other sequentia 
segment ncdes other than the first: sequential seqnent node. 


This would save memory. 


After the segmentation phase, the linker passes into 
the pcstpiccessor pnase. It is this phase that provides «he 


poured outpu- for the user 


The informal strategy divides this phase into three 
Geeeinct operations. The first operation desiacnates the 
Et of sach calculator 21224 segment of code. These 
segments, which mest the nemor ет nar = Of the calcu- 
Мог, are referred toas memory nodules. The seccnd 
cperaticn ccpies the required code into each segn d 


inserts any segmentation rpromptirg instru 
reeded fcr successful code execution. її е fase oprati 

 ШЕіссс ог ouputting the segmented code in a user friendlv 
Mieeructicn sheet  fcrzmat. Dis completes ali linker 


Баса оп. 


шпистоегисон -Прреге che inrsrnal strategy, several 
data structures ars used, two of which were described 
Eier. They are the segment table and the compiled code 


n 
Est. At this point the segment table nas been coalesced 





опсаде Ene Jlocaticns cf the segmentaticn breaks that 
НЕЛИ m-irimize card rsads. т тр: 1 - | содае will бе ccpied 
by segment as delineated in the s=gment table. ANE 


ENucture is built in this phase and a fourth structure is 


provided with the ргсагам. 


The third structure is refered +0 as the memory 
module data structure. с variant of the 
segment table, which allows compatible pointer references 


between tke two objects. The structura consists of a linked 
ist of head nodes, which are named by respective memory 
module number. Пола ршесецје Soe cailculactor's worth cf 
available menory programming steps as determined by the 
ШОО асс partition. аи саз ет сі linked List pcints 
CONE WC locations. сле сас бс is (о the fÍ 


segment table record node fcliowing a se@gmantati 


ШЕ сесспі link is tc the copied code that y 
programaüirg sceps of the memory module. та ге 4:11, 
there would ke two memory module hsads he first 


г 
header ncde always рсіпт= to the first sequential s 
the main subroutine. їп ое хер "¿his Sires = en 


3 
ExSuUde wculd be pointing то the nods beginning witk address 


000. The second menciy modules nois would poin- *o a Teccrd 
BEN £cllcws a break. Tunis vould be :с спе sequential 
egment node beginnirg wich address 290. Just as there are 


шосе рег breaks, theres are no cther memory module nodes. 
mother pointers eculd point to a linked list of ceda. 


ПЕ "еэрзей сспогһес code list is а part cf the 


memory mcdule data structure. Бс 1e another Pascal variene 
ШЕ the same record tyre. Ее реш ас ln Structure 
tc the compiled code list reproduced during the ргеогосевзог 


ісе. Тї е cnly differance ís in typa. Àno-hsz difference 

EN-nat therzs are no jump pointers or dynamic pointers indi- 

Eng a change in flcw of control. Ths structure is just 
1 


linked list of sequential code. Јен шесте ls pol 


78 





to by the memory module header node. е тосно Бе 


made is that the lirked code list, when completed, 4225 
Еп сіһст code tha- is needed for prempting. As such it 


S 
шосе а cns for cne copy оғ the compiled code list. 
Lastly, a look at Figure 4.11 will show exactly the segments 
cf ccde that can be expected to form zhe two memory mcdule 


Euctures. By looking at -:hs sequential segment nedes and 


ct 
ul 
(b 
+ 
pa 


n 


ENuUowing their dynamic pointers of тһе ѕаһгоц-ілеь lis! 
required ccde start and stop ddrasses are given. qo 
Bs "lock down" facility of the sequential segment table 
that make it so vseful. 

Пе оета аата cb ject is provided 
program. па Ехо fails which conta 5 
which ars used by the linker. Zach message is 321: пеат<1 Бу 
a $XXX wher? XXX 1s an integer. The linke ed 
the number portion cf a message, can easily locate the 
message. Спсе located Ш- сап erruense-xtraczevalusesvor copy 
tne message verbatim to an output file. This is what occurs 
Eng the fcrmatting of the instruction messages. 

The operations chat build and manipulate the data 
 ПСстиагсс function in three phases. Figure 4.12 is the 
ШОП Ог Ciecram of the subroutine that supports these 
moeraticns. 

ПЕРСА СЕСЕ орева onl 2S the “construction of the 
header memory mcdule nodes. име 15 -ассошеззһей ру the 
E rrocedure BLD MEMODULENODZS depicted in Figure 4.12. 
This preocedursz traverses the seam=n:z table and locks for 
break pcints. nhen itre rds one, мы check О ЕЕ че 
break has already been dececced. Dream 
detected then it builds he header node and assigns ita 
memory mcdule number. The reason for the chéck 
traversing mechanism is based оп recursion. 
Strategy, traversing is begun with the main subroutine. ШЕТ 


апге 4.11 this would correspond to subroutine LBL А, ncde 
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ene, a дни ama a EEE SE ER 5 


INSTRUCT IONS 


BLD_MEMODULENODES 


¡INSERT _MEMODULENODE S ВЕСИЯ5Е 910. МЕММООЕ5 
NOT. IN MODULEL IST 





OUTPUT MSGF I 
| OUTPUT _NSGF 2 
QUTPUT. 3ADSEG 
| SET_STEP | PRINT_LINE 
WRITE| | WRITE 
(8,5 NUNS 
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г ацге 4.12 INSTRUCTIONS Contour. 
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start address O00. It then searches right along chez same 
E outine tc detect all breaks of that subroutine. Then it 
resets back to the start of ІЗІ A and begins to check the 
Euuroucine list of each node that comprises БЕЗ. 
Recursion is implemented at this point when the subroutine 
iE ils traversed and ancther subroutine is discovered. Е 


a break is discovered in the subroutine list then ancther 
memory header ncde is buiit and the program bypasses thea 
break and recurses on the next subroutine. Тос ТЕ 
mechanisms lsads to multiple discoveries or the same 
Memeegducatly, the check is made to ensure multiple copies 
are nct placed in the memery module header list. 


не next operation consists of copying ccde zom the 


pompa led list, resetting address key codes for jumps and 
adding premegting code to each specific memory module code 
bist. Figure 4.12 contains the Pascal procedure 
BUDS MEMODULECODE which accomplishes the above tasks. This 


is dons Еу moving dcwn the memory module header 
и ишепета! fashicn. At each header, the link to 
table is traversed te datarmine exactly what segments o 
empi led code aze tc be copied. ыы 
РИА МЕМСАУ in Figure 4.12. Once the start and step p 
are determined and copied then recursion is utilize 
traverse tke subroutine links of the Sequential se 
table to chtain the required copiss or residént subroutines 
ENurror*t the functicning cf higher level segments. During 
this opsraticn the segment table is used as a "check pad," 
copied and 


ВНЕ is, ccries are marked included after being co 


р 
are reset upon completion of copying. Шова ет ЕАС соп 
accomplished during the processing of a memory псачје 
Segment іс the addition ОГ NE»emptaong code. pase iy, 
addresses are reset and justified to include the resetting 
СЕ jump address key cedes to reflect new jumps to internal 
prompting messages and the absolute address of the origi- 


ЕТУ ccmrpiled ccde list. 
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Ка - пе сени пепоку module data szezruceture is completed 
Шел the structure 15 presented to che 
РЕП tyre cf format. Шраз 16. све 
ExScegure OUTPUT INSTR. This proced 


structures. It uses the provided message fils» structure and 


п м E "0 
13 
(0 
в 


*he memory module structure. ПЕ асу ср 2s tc ou put 


ct 


BM urnstruction introduction. Прес 


(p 


n procedura does 
ВУ ТЕ От 
етап FIND MSG, PRINTLN_MSG and РЕТМТ LINEMSG. These are 


depic*sd in Figure 4.6. These procedures allow the lini 


cr 
ЦИ 


through the use of the message file and 


K 
to copy vertatím messages in preformattad form. Once this 
is done the procedure copies the codéelis= from sach of the 
memory module lists cf code. Once a specific medule is 
ШЕГЕ tke driver routine, OUTPUT _MSGF1, р 
informaticn to delineate засп memory mcd A 
acticr if accomplished, «he procedure traverses the segment 
Me and prints out additional user information thart will 
aid the user in tne execution of his program. 

Interfaces between modules are accomplished as usual 
ШӨП роіптеге. These pointers point to their respective 
ШЕ сетсистигев.  Glctal information із recorded in the data 
eeructures or in special glicbal variables which ars passed 
as parameters during recursive operations. 

Спе major preklem that was 2ncountered and sclved in 
Ми пте-=<«езпда manner concerns the formatting of the output. 
Nu vast amount cf instructional information that wa 
ШОО еа to be output made inciusion in the source ссд4е 

а 


ЕЕ соі суз. То solve this, the message file system w 


(л 


develcpsi. This system consists of a text fils containing 
preformatted messages and a several procedures  lccatsd i 


= 


Л 


MS AS TEN UTILITIES contour in Figura 4.6. Each messacs і 
a 


delineated by a "$" and a number. Two types of messages c 


4-3 


be prccessed. One kind of message Zesults In a complete 


copy frcm tke first line following tne message ccde (3XXX) 
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. 
rH 
ку 
(р 


ЕП 70 the line preceding tne next "$" encoutered 


Ccher messages are one-line messages which copied until the 


"$!" at the end cf the message. This gives the pregremmer 
ша шсарара 111 у to write out blocks ог text and to write cut 
text and computer generated information on the same line. 


Ancther capability provided by the package is she 
ability to seazch out messages from other files. The proce- 
düre FIND MSG takes аз parameters a file as well as г 
message number. Pits ее allowed thes- linker to ba 
ШЕСІУ ccupled with the cross-coapiler by interfacing with 
== сасе number coded fils produced by the cross-ccmpiler. 
All that the linker needed to know was under which number a 


TV 


Na ted piece cf information was coded and the interfac: 


КЕ name tc affect an interface. 


An improvement might be realized in tne output of 
the generated code list. Curren: there are two seəparate 
Bets cf rrccedures csed to output code lists. This was 
poumsrily due to typing differences However, the seccnd 
Beer print procedures located in INSTRUCTIONS (see Figure 
EN). is probably recre efficient. Furthermore, SR MS 
reconstructed code were changed to be a variant of che 

Eument table structure then a reduction in Pascal code 


її пла з соко“ а собе 


і’ 


ENS would be realized through che = 


КС crcup cf printing procedures. ЕЕ НЕЕ “асгвеасг 22 
efficiency may be realized in any Operations requiring use 
BENE he rsccns--zucted compiled code list. 


C. INTERFACE ENGINEERING 


In any detailed design, careful consideration musz beg 
Seven tO interfacing criteria. Het tracing Chite=ie  snould 
EE as explicit ав possible, however this is not always 
pessibls. Sometines, design decisions or engineering inter- 
pretations have implications that affect other mcduies or 
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subncäules. Пр == сепса: Пу от ап indirac*  nzzure 20 
that the interface is implied in the system structure 4 
not explicitly passed from moduie о module. 
These types of interfaces surface in the deta 
pnass. Decrees ssecasdi ng 8fi-5>9 address labellin 
e ture cf the TI-59 subroutine — а Ее 
design. In addition, assumptions abou С = 
wea programing and the prohibition of recursi 
programs facilitated system design. Simple redeé 
the use cf WPASIC commands  RZAÀAD/DATA prcovideä any sas 
EBENE C, Cut again was an implied interface. Thes 
implied interfaces will be а оо m th сиіп 
Sections since they are critical to understanding the syste 


cpératicns and to future maintenance. 


1. Addressing T1-59 SBR 


Сге implied interface resulted from à decisicn on 
tke mechanism of subroutine invocation which would Ds used 
by the system. This decision arose from the fact that cha 
ШОШО calculator may invoke subroutine ccde in several 
different ways. 

щеш ппазесрапа why a decision was required a lock at 
the subrcutine naming convertions and precedure £or invoca- 
ог ага in order. A subroutine name is composed of two 
program steps. The first step is the keycode 76. This 3€ 
the LBL ccde. It tells the calculator that the next key is 

Е 


a Subroutine папе. The next program сте 


"O 
> 
U) 
ct 
Ф 
n 
б 
ch 
£3 
fv 
- 


Subroutine name. The keys which may serve as a 


з 


e 
tine rames пау be one of two types. The first + 


- 


from keys which are undefined. Thar is tO зе 
пева by the calculator to perform calcula 
Beware strictly reserved for naming subro 
сећаг tyre cf name ccmes from defined keys. By thi 

є 


that the calculator uses the keys іп sone 
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ест *o naming subroutines. Thess keys are cverload:d: 
they can have two meanings. 

Ic define which meaning 15 to be interpreted the 
ШЕРКЕШ Cr requires that a subreutine d¢finition be preceded 
with a srecial key called the label key. This ale 
BM ujlator to the fact that the next program step is а 
subroutine name. Tc invoks a subroutine, AS Ca CU ato: 
requires double meaning labels to be voréceced with a special 
key called the invocation key. Васе ae celculstor 
to the double meaning much as tre label k ва = Еред 
u 


keyS, this alert key is not requi e FWS liL пот 


#3 
(D 
Сы 
сї 
¡de y 
О 
- 
ча 
Е 
гі 
f) 


Er any transfers. Тһегз exists arocher method of 


i 
D 
t1 
er 


ЈЕ 
ro king Subroutines. Torie calls о ром пусса  зоп a 
abs 


key to be follcwed Ey en e addrsss. ПЕ (е ene 
duality cf meanings which presented prob 


Тс overcome these problems two decisions were made. 


tr 
(0 


Ihe first decision required that all undefined keys 
treated as if they were defined keys. This resulted in only 
One cass tc be develcred tc handl? subroutine raning. тие 
penalty for this decision is that an added Step was qensr- 
ated whenever an undefined key was used ас а label anda 
РЕЙ то that label was made. The other decision disallcwed 
the use of absolute addresses in zhe subroutine invocaticn. 
ALI invccations would use labels. pnrscgecsssonocear-z32ed 2 
penalty in terms of execution spesd. The  CGalculatcr must 
search program ster memory to locate named Subroutines 
whereas address references can be reached directly. On the 
Er hard *here are several benefi-s. One proarzam ster was 
saved since a label requires cnly ora step whereas an abso- 
lut2 address requires three. The other benefit permitted 
the definition of the invocation alert key as a two step 
Meet ucticn and not atwe or thres step instruction. This 
was the primary reascn for this impl 


mentation. AL] of the 
Пати па. 


е 
System was designed with this decisio 
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Белов еп асе With the d¢fining ct subroutines. 
Mien calculetor permits subroutines to be defined withir 
Gther subroutines. Treuen his sin !rselz is nct extraordi- 
D tke! fact that rested definitions may be cicsed cut 
with the same sutroutine turn key is not usually 
Eumstted. This type of structure made subroutine detection 
for segmertation purrcses very difficul- 

Ше с<сйіуе тіге problem it was decided tc allow only 


meee tuted subroutine definiticns. That is to say, only one 


return was rermitted for each label. To adili- On, 2. Was 
decided to disallow nested definitions. In tact, the ĉəci- 


Sion was made to require that the programmer position his 
ШЕШІ ргодгапш іігсіе іп ЯБАЗІС зоцгсе code and to have all of 
his subrcutines follcw in the manrer described above. 

Pars wsincstrtace design decision Іогсей а specific 
program structure This structure was easy to detect, =asy 
to compile and easy to segment. These benefits were real- 
Meee au a cost cf net being ables to generate efficient or 
Ш ЕЙСКУ" code and of reducing the ргодгащиет" с leeway іп 


@ewercring his WEASIC source cod] program structures. 


Se Беситетсо 


оО 1-59 calculator instructions tend tc be 


Буасіуе on the subject, recursive programs can бе executed 


in a few special situations. Some BASIC languages support 
шише сп, cthers de not. AO. ра WBASIC lanqua3s 
бшррогте recursion, une tan ons таро а ру the calculator 


torced us to disallcw the translation of recursive seurcza 
programs. Other reascns for this decision involved complex- 


Memes which such programs would present to the linker. 
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4.  Izeri/Qutout 


-—- <a 


Шие сс-уеПорвепс ог зе inpu*you@7put structure was 
designed arcund the ihres major limiztations of the calcu- 
ШЕСІ: prcgramming steps available, storage registers 
available, and the calculator numeric display. іп "792267 56 
матер an efficient system to allow for input and output 
restricticns were placed on scme WBASIC commands. 

E ce the Calculator display allews only numezi 
input and cutput, then any information passed between a 
human operator and the calculator must be ir numeric form. 
Prompts usec to communicate with the human must be inbedced 
“ПЕ compiled code. ПИ = пена = = ОЕ при сала Output 
these prempts have an overhead in that they use up valuarie 
programming steps. For example, with each INPUT ccmmard in 
BASIC, a total of seven sisps are gen=zat=d то produce a 
ІТ апй store a value ir the calculator. The сгсЬ еп 


~ 


With this cccurs when large numbers of variables need to be 
aut. нс Әй variables are required fcr input then the 
INPUT ccmmand will generate 420 steps. роби ис секу 
unacceptatle. 

КЕСЕ СЕ this problemn -hs Semantics of the SHfEASIC 
EN 


commands READ and DATA were modified. Use o 

within a scurce prcegram doss not increase the number of 
- 
т 


D 


Se comman3 
Б Птап Sters in the translation. Ди дао вето ва 1С уаті- 
Sere names assigned to TI-59 regis 15  prcducsd and 
placed in the interface file. таи нога сыс тле human to 
wnt ali of his data prior to execution O 
Dey the penalty cf generating extra prompting code. 

a 


бсо лег decision . concerns tke 


and REAL statements: All DATA/READ pairs must  cccur 
together at the beginning c the progranm. The reascn for 
this should be clear. Пн Бе impossinle to place t3e 


commands in the middle of the program Secause they would 
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have no effect. Wich the exception of a single NOP (nich 
іс €liminated during peephole optimization), these commands 
Generate no code. As a result, до run-time modificaticz of 
ШЕЕзарісе can occur. Pgrchormors, DATA/SREAD statements 
placed within loops would invalidate the DATA to READ 
Mapping, a static table. 

The whole purpose of the red 
commands was to cive the user an optional гї 
Was expected to increase the efficiency 
code. These decisions influenced much o 


System. 
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The test program and its generated cutput are provided 
ШЖргегбісес К through P of this report. Тіе test program 
was chcsen for several reasons. ба 21555 Бе 


а 
Mest the actual ability of the system zo produce а! 
о 


ШО сойедй program. The seco 


= 
в а 
#3 
Ф 
m 
(Л 
О 
£3 
ж 
ey) 
Ul 
ct 


ebtain an idea as to the efficis 
code. The following secticns рге О 
test program and comment on the efficiency of the genzrate 


cod2. 


A. TEST FROGRAM DESCRIPTION 


en develeping a test program several considerations had 


ENSE taken into acccunt. ВЕ соп 9-е: ор седи: се 
И the generated ccde be verifiable. To verify the gerer- 
ated code, i- was decided to program a solution to a problem 
МИ иплсћ verifiable solutions existed. Verificaticn would 
Се achieved if the system-generated solutions matched those 
пе 2Xisting solutions for the same inputs. The second 
Шлизпасгаттсп час to attempt to arriv 


ЕЕ еше сорс Of effi- 
шсу ссптрак:5ол between the sys generated TI-59 prcgram 
ИНС D cr*t*irfized hand codsd TI-59 progran. 

The test problem which was selected it the abcve 
бб сегја. Бер ОР аш” solutions со known input values 
existed. Ihis ensured proper verification of the generated 
code. Есау 2 ану opt inized hand coded soluticn to 
the problem existed fcr comparison. The problem selected is 


called the "Gunnery Problem." 


89 





Mme gunnery problem is to determine firing data for a 
howitzer cannon. СОВЕТЕ о: поче the folicwing 
meee piece location, target location, piece corrections and 
ШОШ ес teailistic coefficients. The output which is gener- 
@eeq consists of time to target, elevation to achieve target 
hit and the lateral deflection (an angular measurenent) to 
align with the target. 

Mes sClution invelves calculating a range to target as 
well as ап azimuth +o the target. ThE атома h zs реп 
enn Erted to a lateral deflection, which is understocá by 
EN ccc tc be the correct é@Zimuth on which to align. 
NEXT, thres quadratic equations ar solved to determine 
elevation, О тарс апа shell  drir- These аге 
МШШ еа tc the lateral deflection and to the piece eleva- 
tion. A decision based on the calcuia-ed ranqe to tazge- is 
needed tc ensure correct ballistic coefficients are used in 
thea computation. These coefficients are based on the charge 
which is to be fired to achieve the range 

The hand coded version solution has been in usa since 
[woe The accuracy cf tnis version was checked by artiller 
ШИ stic tables and ky the Field Artillery Digital Computer 
БАС), the recognized source of all correct firing data. 
ШОШ по this scluticn, vast quantities of test input and 


cutput were available for proqram verification runs. 


The hand developed version is highly optimized. nor 
example, the hand version stores  sigh* numbers in four 
Storage registers. This is accomplised by storing the 
mummers cn either side of the decimal point іп а real 


number. This real number is tnen decomposed in a subroutine 
memors=ain the correct number. addicion, this version 


makes use cf calculatcr commands that wer2 not irplemerted 


Athe EAXS9, For example, there is qreat use of the indi- 
rect  stcre, decrement and skip on zero and polar to 
reccangular commands. All of these features made the hand 


Coded versicn a highly optimized program. 
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Б ЕРТЕСІ COMMENTS 


ШИЕ БҒАСІС solution was coded using basically 
Program structure as the hand coded solution. Tiu 
седе 15 presented ia Appendix K. Tine eec 
ated by the cross-compiler is presen 
ШЕ! Output generated by the linker i 
Appendix F. 

ШІ уег1іҰуіп4а4 the accuracy of the generate СОСЕ шапу 


runs wer made using input data for which known scluticns 


existed. There were no deviations from the known scluticns 
in any of the test runs. The conclusion is that the gener- 


acted code was accurate. 


Іп ccmparing efficiency a common unit of measurement was 
needed fcr comparison. This common unit was chosen to be 
РЕ ТІ-59 program step. The reason lo 


Both registers and przcgram steps reside in the same men 
Registers cccupy eight programming steps. To measure how 
much memcry a prcgram uses it was only necessary то multiply 
the number of storace registers tines eight and add it to 


т 
B number of program steps to arri: 


Г ve at a figure which 
measured memory г. Wee после Calculator. 

the EBAXS9 gsneratsd and the hand 
441 steps and 
. The  BAX59 


Memeratecd ccde used 652 steps 2nd 86 registers for a total 


» 
ж. 
" 
ct 
ey; 


This was done 


( 


, 


coded ртсдт=15. The hand coa 


ip 


a 
a solution used 
1 


w cai sters for a total step count of 92 


О ccunt cf 1340. This represented an increase cover the 
hand coded eclution cf 419 steps or a 45% increese. 

A time то soluticn comparison was made next since the 
primary purpose of the BAX59 system is to allow an indi- 
Metal -с quickly cbtain a program capable of running on the 
MaS calculator. Te begin with, the hand coded version was 
developed by three individuals over a period cf several 


weeks. Ihe BASIC prcgram used as input for the BAX59 syscem 
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E crly cne ретссп опе day to writs and debuda. es 
Meaty СЕ а higher level language greatly simplified the 
Beodgtamming process. ЕЕ Sayings ip prog 
development which makes che desirability of the BAXS 
readily apparant. 

In locking at the system-generat2d pro 
comments сап ре made about where tne relative  cverhead 
ESeurs. ШЕ сце 2а) 652 programming step: 
ЕНЕ 84 steps were due tc promptirg co 
registers were used as manual réturn ze 
register was used as a temporary display storage ге 
Another register was used in thes manual subroutine return 
р сапа scheme. This totals for the Linker an cvéerhead of 
148 programming steps. This Linker overhead represents 11% 
EN ne total gererated steps indicating chat the compiler 
generated at east 34% more code than *he hand oprinized 
coded program. 


ште јагс- Comment concerning the actual running of ths 
BAX59 generated program needs to Бе made. Inszunning, che 


BAX59 code it was determined that tima of execution became 
totally depsnder- on the Dolar. 0% Cards теда: геа тора 
ШЕП іп and out. If the head reader in the calculator furc- 
Meemed properly, than this required smail amounts о: time to 
accomplish. If however, the hsad гег дег malfunctioned, then 

a 


Mié teading oí cards became гп сгіеа Пепи аса с, ое 


t1 


Meee had *c pay clcse attention to the ргсагап prompting 
a 


scheme cr he would become lost between card re 
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VI. CONCLUSION 


ШІ "Пе fcllowing discussions, che test program is avalu- 
ated together with the actual design. Based on this 
evaluaticn several cenclusions are drawn and recommendations 
presented. 

A. EVALUATION OF TEST RESULTS 

In examining the test data, іт із important to realize 

meme chic is only a single test. LS сис 2 does гос 


represent the whole se: of BASIC programs which may be 
executed by the BAXSY software systems. However, tha test 
Ш ЕЕ g-ve аг insight into the actual efficiencies which 


iv 


=з 
T 
ча 
ку” 
ct 
о” 


¢ expected. While actual numerical date is 


iD 
J 


+ 


442 


- 


these Чата should not be viewed as a statistical analysis 


зв o 
tty 


D 


the system. Rather, the data is msan- to prcvide soms Ж 


#3 


& 
СЇ геЁегепсе for the discussion of system efficiency. 
ioe =Xamining the test progzan, ic is noted that excess 
code generated amounts to roughly 45%. OE UN c EE aAa LTOK 
шу 1114 can be attributed to the linkez, while 34% can be 
meee puted to the crcss-complier. Although she “cota 
ems -ather large, the reason for building the svstem 
must Le recalled. The pzimary reason is to facilitate the 
Tapid design and implementation of programs zx has 
бешсија-ог. In view of this, іт bacomes clear th 
cverhead іс secondary to the problenm. Our real y 
ШЕП success is whether or not TI-59 programs can b 
oped mere rapidly than hand coded programs. T 
Meegrem provides an insight into this side of the problem. 
Develcpment time was about one order of magnitude faster 


compared to the hand coded solution. 
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This rarid dsvelcrment time more than justifies the hign 
overhead. This is true in most academic applications, a 
nost program 2xecuticns are limited in nature. ASS Oe 
ENT hand, a program is to be executed many times, chen an 
cptimized hand coded program might ke better kan the 
machine generated version. The final decision lises with the 


user. His program execution requirements, and the agcunt cf 


+ 


time he has available to design and build his soluticn, will 
iv 


Е Піс selection. 


Eee ССНСТОЗТСН 5 


may ew of the target: machine liuita-ions, it is crcb- 
Ниш сате tc concluded that the system is a valid first-cut 
mo Otype. The protctype proved the desirability and easi- 
ВСУ Of the concept, tha- quick calculator progzamm a 
EN calized with the minimum of effort. The following raza- 
graphs discuss the rrototypes's limitations and 5 
reasons why the current system іѕ not yet useful 4s 
peducticn systen. 

шие Calculator is severly linited in memory capacity. 


Ши ТЕ - 59 calculator has only 959 program steps for ргсагат 


usage. The overhead in code generation and segmentation 
prompts use up 45% of these steps. Боас лат т је fact 
ED спту three memcry partitions between program steps and 


одга 
Storage registers are available, che 45% becomes a signifi- 
ШИЕ Остузпс figure in calculator use. 

The memory problem restricts the varieties ої? programs 
Een may be written for translation. Programs may nct be 
written which requires a main routine having a long back jump 
Bt covers a vast portion cf memory. This is because the 
derneath the 
ал | с 


al 
segment. Thus, only programs which are sequential in nature 


3 


linker segmentation rules will be violated un 


covered iterative segment. The segmenter м: 


аге suitable for the system. 
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Ancther related problem is that che smaller the memor 


7, 
ene more segmentation breaks will occur in the code. The 
more segmentaticn breaks, the more card reads will bs 
required to achieve a successful program 2xecuticn. Teen, 


ao cen will arise with the card reader cf the calculator. 
Like any piece cf equipment with a motor and magnetic tape 
head, it is fairly sensitive and prone to failure. ІЕ the 
card reader fails just once in the execution sequence, then 
Enc is a high probability that the program will fail to 
terminate successfully. The minimization of magnetic card 
Bags 1s desirable fcr this reason as well as for reduction 
сег thrashing. 

ШіСтпег тгесігісіеісі occurs іп the language sutset. 
Үс неге rot implemented in tha first prctotype design. 
Er umitation impacts directly on the types of programs 
which can be developed for and translated by ВАХ59. 

Arrays are used primarily for iterative work. 
arrays, iterative werk, ale scan сог=с-рј=,“ 25 v 
limited. Much computer power lies in th? ability +o execute 

ша лог raridly. S noted in po- Ce- d па регаачљгарћа, this 
Шататчтіоп сссигѕ аѕ а геѕиі- оё the 5 

EEG machine. Because of this, it zs Islt that the imapis- 
ша топ cf arrays should occur wh 

бей With a mere capable calculator. 


We have suggested major iimitaticns of the system as it 


Euuenctly stands. por dgeseccsaconse cie is felt that “he 
a= er should be viewed only as a first workind prcetotyrs. 
шемет, we feel that this prototype successfully iemcn- 
Масе “he concept that the power and efficiency of 
 Шепігес: programming сап be greatly extended through 


higher level language programming. 
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С. RECCMMENDATIONS 


КООШО серп но Е BAXSS 2s uscrul, then the next isgical 
n 


СЕРУ 5 to develcp the second prototype The secend proto- 
Ape. should no“ te hindered by the НЕ Ен 1 - 595 
Beem taticns. Otherwise, the next machine should be a more 


practical one, allowing easy hand held calculator program- 
ming. Many firms now market machines which have built-in 
ИС language interpreters. 


Hardware Related Suggsszicns 


order tO avoid the major restriction, namely 
memory, the BAX59 system must target a larger capacity 
вси] атсг. This calculator shculd have about 10,000 


program steps and approximatly 400 to 500 storage registers. 
ENEIenory partitioning capabili- Should be available to 


maximizs memory usage. 


Ман со он сп tc. inczeaspd menor сава: гу жапе 
next rrototyre should have a hardware device available which 
ШЕНІ enable the host computer to download the generated 
 Енізісі program inte the target machine. This would 
climinaze hand punching program steps, which would he be 
Meena bicive on a calculator progran of 10,000 or more sters. 


The linksr algorithm examines the dynamic structure 
= пе ргсахап to facilitate  segumenting -ne program. This 
alogorithm segments sequential code that is not covered by a 
BIER locr. Ie nays possible to uso this algorithm in the 


develcpment of a single page swapping mechanism/systen fcr 4 


a 
ET 
fv 


52211 micrccomputer. The purpose of the algorithm in su 
System would ре to segment a program “со large for the 
MLiCIrccompeuter, in such a manner so as to mininize the number 
OL single page swaps wit the syscen!s disk storage unit. 
Such a system might be desirable for a small micrecomputer 


іп which memory is a probl=m. 
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A very useful extension of th2 language sunset would 
ВЕНЕ inclusion of arrays. Coupled with memory 2xpansion, 
ene Capability то prccess arrays would make it possibile to 
do mcre iterative prcgramming. 

A simple but costly implementation of single dimen- 
sional arrays is, perhaps, the most feasible approach. FOL 
 аггау declared, tnree registers will be required to 
ЕЕ indexing and access information. Call <nie "PASIC 
record fields which wili store the assigned register numbers 
meee, HOLD, and CALL. BASE stores the number cf the array 
Базе register (array index 0). During assignmernt statement 
Ме ја-1сп, HOLD stores the index for an array identifie 


cn the left hand side of the assignment statement equal 


Sign. CALL stores the index of any array identifier 
currently being evaluated in simple expression. Of course, 
Begeeters will be necessary for storage of the array itself. 


est technique is to require tnat all array index 
u 


а ~ zero, А nee va Phe no то 
m 


а 
eking ofm ranga 15 
ens, estimated TI-59 program step raquirements for 
С 


n of even simple assignments involving single 


dimersicnal arrays are very high. Evaluation of onres аттау 


in 


Шегетепсе such as "A(X)" translates to 13 progran 


0 
! Cj 
Ui 
a 


cy d 
(D 

tTj 
(Л) 


The assignment statement "А (Х) зА (7) " translates то 26 < 


A more ccmplex reference such as l"A(A(X))" rsquirzes abou- 28U 


{Л 


taps. Together with the number of registers needəd to 


N 


store values and access data, usag? cf calculator memory пау 


4 


rapidly approach capacity levels with array manlpulation. 
Farticular array values are accessed with the IND 

Bedıirsct) instructicn. Our basic strategy is to add the 

evaluated array subscript to “пе register number in BASE, 


ШЫП stcre it ШЕ НӘРІ (ror. 1515 side of assignment 


зи 





г MC Oo al 5165). When a value is to bes 

ШИШ спеа to an array eismen- on the left oí an assigraent 

ement, then the right side is evaluated and "STO IND" 

Е-е = санке а-= the correct location. тс сус 

Бесату С2 evaluate an array item  withi» an exptes- 

БОП, then "RCL IND" CALL recalls the value of “the 

appropriate item. Mere efficient translation schemes might 
bs possible; however, our technigue has been tested on t 

TI-59 calculator, and works well. 


Me Sst difficult aspect of iaplenertatior is the 


the task of installing the translation scheme and a parsing 
scheme. пре о шшасљету, the BASIC language requires К 
array declarations E the DIM statement. Росе ве РОЕМ 
must be written to pars these declarations, create symtol 
table entries, and make register assignments. The SLOTRCD 


pocord wculd need an additional variant tag type for array 
ES. cali it ARRIL. ам Ро чал Chi S cage would carry 
Ши ds PASE, HOLD, ЕВ А na св Maliante parte = ла! ју, 
we would have to adjust the sinpls =xoression parsing and 
code generating procedures PEXPR and PPRIMARY so that they 
Ж ЕНІП тессаг2225 array references and act accordingly. of 
course, there are other source code adjustments that would 


Р 


¢ discus- 


ely 


Бе necessary to fine tune The system. However, th 


on 


A 
len 


> 


sion has suggested cur outline от major steps 


ExSy impiementa-ion. 
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шы ыы ағыс жан ы AA шш 


WBASIC SUBSET BECOGNIZED BY BAX59 


ча» «а» «ше «е ст de A ae A A A A A A «и? «ча» чю + х х х ту тј х 49 «е «е е «ее «не «к» «к» TO A A ӘӘ АӘБ «то ча? «че «то» х" «то х) уху х" у к" чир ч ал» «к. «ж» чш ч) ч з з 


DATA ENDIF GOT C NEXT REM 

DEF ENDLOOF PAUSE RESTORE 
ELSE FNEND ТРОЕ PRINT RETURN 
- ELF FOR ET OU Te Э ТОР 
ЕМГ 50508 LOO E READ REIL 


 БІіспегіа! Кзозгуга Words: 
МСТ <> < + ( 
STEP <= > - ) 
THEN p = ж , 
НС Ж ж 1 Ж А 
E 


Specjal--reesgnized by Scanner directly 
= на Srecsgnzzed.byz scanner dirsctiy 


ян» ак» ча» «к» ЧЕР «ча» «е» «а» «наз «Ж» ча» «не «то «В з чу» чыр ee A х х у х х SS ту х «к» ју" A A тј х" A «а» A A A х" у у" A ча» «то «а» ED CD m 


CHAIN LINECT RANDOMIZE SLEEP 
CLOSE LOCK REMOVE SORT 

DUM MAT КЕЛЕЛІ T AGSORT 
ENDGUESS ON КЕ UNLOCK 
GUESS OPEN SCRATCH USE 

ОРТІСМ (Speclai--syntax of WBASIC not implemented) 
AND OR 

# 5 1 
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арар GAP чш GP ae a = A A a GG p SSS ee l GAP ФЕ ат спирт lo s ЖЫ сл =й за ашы 


AE Create an internal data list (525 READ, RESTORE) 


LATA <integerjreal> {, <integer | rzal>} 


Mere, Ге Пе a single or multi-line function (see FNEND). 
сишате line: DEF <fn_name> аа = <ехрЕ> 
Шіігі-ізпе : DEF «fn name» <parameter-liist> 

оон o: definition 
FN ENDE 


ШИЕ 20: сго- instructions to executs if no IF/ZLSZIF 
Senda +190ns were satisfied (see IF, ELSEIF, ENDIF). 


WISE 
ШТЕТЕ: Сасе execution of a number of statements defending 
Шеге сазуеп сспаіттор (sec IF, BLSE, ENDIF). 


ELSEIF <роојеал-ехрг> 


ШИ“ Маск the end-of-source in the program (last line). 
END 


В авы Ноа 


ENDTE: Indicare nd of а 
Dose 


the Е 
Gere ТЕ, ELSSIF, E 


ENDIF 


ВСР: УагК тіз епдй ог à looo (sss UNTIL, WHILEZ, LOOP). 
ENELCCE 


ПИЛЕ: Mark che end of a function definiticn (ses DEF). 


ЕМЕНІ 


Mark che start cf a loop (see NEXT). 


USES E= Va?» = <exoz» ТО <гхог> (5ТЕР <эхрт> |] 
ош р 


..Statements xecut2 in lo 


NEXT <for-var> i 
EXE: Transfst contrcl to <пе line specified, until a 
RETURN is reached (see RETURN). 
GCSUE <line#> [о Ә-Ә = 305 гессапл22е4) 


ENS Transfer centrel tc the line specified (see ON). 


GOIC <line #> (Note: GO TO is not recognized) 
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ШРШ! Сапсе “гапс”ег ог ссп“тоі “o either of two У 
Ееее ӘРІП "а loop depending on 2 согаі-ісл. 
IF <toclean-expr> THEN <line#> | QUIT E <iins#>ICUIT] 
De wes an except on co BASIC which 
nius S single statement after THEN 
and/or ELSE. 
(2) Cause executicr cf either of group of 
scatements depending on a condition 
(ses ELSE, ELSEIF, ENDIF) 
ТЕ <Гос|гап -ехрг2 | o | 
Meectatements to execute ir expression TRUE 
WEISBIF <boolean-expr> | | 
nenes осе == оте Опа expression TRUE] 
S а 
eee tat Senant sS to executa iz none are TRUE ] 
ENDIF 


number of 


ЖЕ Ттагспіс data fron the te а 
es ssops 3xecu-icn. 


D it 
varíables (see PRINT). No variab 


INPUT [<expr> (Г, «ехро 2) | 


Meme Assign the value ci an expression to a variable. 
IET) «var» = <expr> 
BEDS “Mark the beginning of a lcop 
ЕЕ ИНГЕ, ENCIOO?,; UNTIL). 
LOCE 
ses Statements tO executa in loop 
ЕМОТСОЕ 
ИС Mark the ond of a FOR loco (see POR). 
EO x Nro 


Е Statements +o execute in loop 
NEXT <= ое - тат > 


Beer: Sispznd execution of the prograu. 
БЕКШЕ 
Meets Transfer a series of values to printer or display. 
Et nc БЕР ел 16 оцай, а ізде space will result-. 
(sse CPTICN) 
PRINT [<expr> (, «ехрг>| | 


EN Leave the current block (WHILE, UNTIL, LOOP). 


ШЕШІП: Transfers data from the list of items specified in DATA 
Statements (see DATA, RESTORES). 


READ <variable> {, <variable>} 
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КЕМ: Indicaze chart the line is a comment. The exclamation 
сћагастег (!) пау also be used to indicate à ccnmmen-. 
REM {<ccmment> ] 
ЕСЕК: Сапсе спе пехЕе ВЕАО Statement to get data values 
а рё“ Е пет In the DATA list 
sce RE! DATAS 
[Е5ТСЕЕ 
OMITEN: Transfer contrcl to the statement followirg tne las- 
GCSUB exscutsd (see 60508). 
RETURN 
STOP: Terminate trogram ¢xecution. 
STOF 
ШЕГЕРЕ: Mark the end of a loop to ba éxecuted until the given 
шепіісіосп 25 truce (see WHILE, LOOP, ENDLOCP). 
LCCE | 
Meare cements to sxecute in loop 
UNTIL <toolean-expr> 
WHILE: Mark the be ERE. Ота Ors Joop *o be executed until ths 
Сен сода стоп îs no longer true 
(сез ІООР, ЕМГІООР, UNTIL). 
ШЕГЕ <roolean-expr> 
ees Statements to execute in loop 
ENDLCOF 
ШЕШЕСІ: 5ес/гезес boclean toggies within BAX59 to ccrtrcl 
Sensra-2cn of output files, 
CAUTION: This is not the BASIC OPTION! 
this OPTICN should be used ӘП Шу асет 
асс св чедо ЕС ргосгел ras been р 
сос шок а and 2s pteady Ses translation. 
ше 1 сорс ратшо {(<cot-perm>} 
шепте ра (Option parameter) is 
а пи э ер сагје -8..+8: 
sigh ia 1 са-25 the direct ue nome 00412: 
вое а  ~sUe/ Nn, Negative = ralse/crf; 
Signs Ss assumed positive if omitted. 
КР : ET Default 
ene ate lane: interfaces f£2il9............falses 
1 = generate ccde for PC-100 ргіпсег..........%гче 
2 = Cpr-n;ze cut unnecessary parentheses......true 
3 = cptimize cut unnecessary МОББ ооо сте 
Ц = translated DR od codecs to (25-2 files oases es tT us 
2 = cont ents Сите аре tO list tote. ....false 
росе СЕ cede Structure to list file...false 
7 = each lexical token to DES ОРДЫ oo se 
Е оке о List 211в.:.........гаі1се 
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МОТ: Медете а Ltooclean sxpression (ses IF, WHILE, UNTII). 
NOT «FLFccloen-exrr» 
STEP: Desianate the increment (decrement) value of a FOR 
variable (see FOR). (default = +)) 
FOR <for-var> = <expr> TC <=xpr> 5ТЕР <гхрг> 


THEN: Mark the beginning сипа = branch of a line- 


criented IF statement (see I 

IE <toolear -expr> THEN <line#> 

10: Mark the expression which represents the limiting 
value of a for-variable (see FOR) 


ШЕН” <Тот-уат> - <ехрг> ТО «Xexpr» [STEP «expr»] 


~ 


<> ШЕ. E * addition 

= less than, cr equal = Subtraction. 

= greater Han = 3 5 multiplica= ion 

жж raisa to tke powe / division 

< less than ( ге expression 

> агеа +ег than ) lose expressicn 

- equal | ; СЕЕ item separator 

! end of line cmt : decimal 201 nt 

Special Characters: E. 
цени > served wo-ds---2cogna2ized dizectly within 
the scanner withcut reference to the RW tapis) 
5 НІП 1-с tha't* tns curzzsnt lirs ds continued on the 

Ес пе ог 3s a continuation of the last line. 

00120 REM This ccmment is to long for one line, so it & 

EU 6 must be con-znusc on the next line. 
Bnusrscors:cused within variable iaentifi=zr names to 
assist in readability; alsc used kko пес запаса а user 
Hsccred tupncticn identifier. 

ШТО НОК SUN VALUS = #1851 VALUE + SECOND VALUE 

Борец FACTORIAL... 
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чт» «Xe AED E AD «чт» «тв «ще TD D EY ӘӘ ЧӘР ӘӘ ap amp «ше «к» «к» <р «ж» чи» «к» ЧӘР AA A «чт» ч «к. ЧӘР ЧӘР mie A ЧӘР ЧӘР ЧӘР A «ит» «ин» SF SP ЧӘР «ит» «ар «и» GD GD «ит» «ни» чи» «ат» «ит» UD «к» A еш» m 


АЕЗ АТМ GSE IP PI SEN 
ACCS CDS EXE LOG RND SOR 
ASIN COT ЕР 10610 SUC TAN 
ABS: Returns the absolute value (magnitude) cf parameter 
AES (x) 
ACOS: Returns the arccosine (in radians) cf parameter 
ACCS (x) 
ASIN: Returns the arcsine (in radians) of parameter 
ASIN (x) 
ДЕН е usos т5а агстсалаепс (52 сайзапз) ОҒ parameter 
АТМ(х) 
COT: Returns the cctangent of paramster angle in radians 
CCT (x) 
750: Keturrs the ccsecant of parametear anale ir radians 
CSC (X) 
EXP: Returns the value of 3 raised to the power x 
EXE (x) 
ПР: КОЕ УЕ ЕВЕ сасе опат беге ала sign of paramkEter 
FE (X) 
ED. Меше tke іпседес ратт ana sign or real parameter 
ТЕ (х) 
106: Returns the natural logarithm (base e) of parameter 
Шес (х) 
10619: Returns the ісдагісіп (base 10) о: расапетег 
LCG10 (x) 
Br: Kerurvs the value of “he constant. ol 
MIOS wBASTC sz» р2 5 314159265359 ТІ-59) 
РҮ 
RND: Returns a Ds=srdo-randen number in the range (0,1) 
ANT (x) 
SEC: Returns the secant of parameter angle in radians 
2216 604 
STN: Returns the sire of varameter angle in radiars 
SIN (x) 
ER: Returns the square root of parameter 
SCR (x) 
TAN: Ни the tangent of parameter angie in radians 
X 
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APPENDIX B 


CONDENSED BAX59 USER'S GUIDE 


This guide is intended to be a useful compendium of 
important pcints the user should consider when preparing, 
E -ссшр 1 па, агра linking a WBASIC source program with 
the BAXSY system. Inciuded are suggested programming tech- 
Eme which will optimize anc improve resulting TI-59 code. 
Some cf the informaticn contained in the design document is 
repeated kere for the sake cr consistency. There ars a few 
previcusiy urmen*tiored items, many of which ace essential to 


successful vsa of the system. 


ue Whether you are translating a pr2written WBASIC prcgran 
Semone which ycu are writing yourself, rev 
constructs and functions which are not iuplemented in 
Едхоб. Use Appendix A as a quick referenc 


purpose. Басе аі сітшіпаісіла uninpiementsesd func- 
mens iS mora 2mspoztan- tham constructs. Вт 
ЕЕС апа грст construct Subset errors, however, 
uninplemente functions are assumed “o be variable 


Madentifzers and will be enterad in che symbol table as 
such. AL error may or ma 


ends u tne Context of the 


in 
Eu 
iD 


© 


‚3 


И сЕ ВОС Ей ас а result 
p 


Ero faulty syntax; thi 


ro 


me melemented función. 


E Every line cf the source program must have a line 
number, including blank lines. Every line number must 


БЕЙІП Chrenolegicat™ order between 00000 ard 99999 
exclusive. 

m The end of the source file does not require the END 
statement; however, whenever an END statemen 


encountered, the end of the source program is assumed 
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ERU crenslation halts. The ЕН) statement will not 
Bererate a TI-59 program stop. Is you aesizre that a 
E -59 program halt gracefully, you must u 
statement {s} іп the WSASIC sourcs code. 

There is no overhead invcived in using blank lines or 
comments. Although a NOP is generated for each, it is 
subsequently optimized our during resolution. This 
Bor allows uncenditional jumps to such constructs 
Methcut cause fcr concern. По меттер Sich раст: се 25 
not recommended and will hamper Gebugging. 

EuUare strongly uzged to practice structured program- 
ming. While ап Uns es de. ped program will be 
Epuansljaced, its pnysical correspondence to the criginal 
ШВАСТС source ccde is likely tc be less recognizable. 
1 


Eco, such a3 transletion will very orobably coniuse the 
e 


linker. ЕЕ ШЕЕ your subroucsnes лака cniy cn 
entry point and one RETURN, otherwise you will defi- 
nitely confuse the linker! БР ӘПЕР CE 1ргоує ве 


1 

physical correspondence between source and translation, 
you are encouraged to use blank lines and ccnments. 
Ms Will usually assis- Фп debugging, if required. 

Mie Structured crder of WRASIC program parts should be 
ще с (си: 

о Tho stracemen-- (ior 3AX59 enly) 

В. DATA/RZAD Statements 

"EUM вой (including a ar lease one STOP) 
пре те ОПП" = and Subroucsnes 


ir END statenent 


F^ 


Note: Ве пкехгнехкрес“ 5 70 Е 
€ he a 


па +һе label repre- 
meir body (ZBL А) Е 


- 9 
M - + = ~ 2 9 6 


Kzycodes. 

There is only one type oí numeric daca: real. 
Integers and reals are both considered reals in the 
TI-S9 run-time environment. Numeric entries without 





10. 


IBI. 


12. 


5. 


олени: always bs truncated to ten sigrificant 
паат =. To the entry contains an exponent о 
entry must te converted to exponent notaticn in crder 


Ші-шазлтаіл equivalence, then only eiahr sigrifi 


а 


а 
digits will be saved (plus two in the exporent). These 


ruies can have a profound effect upon precision error 


(Л 


BEUNDnUmerical corrutations. 


nvcod rrolifera-icn cf variable names. Variable names 
us@ registers, your most precious rescurce! Whenever 


possible reuse variable names to prevent печ register 
assignments. 

Bem Пс: forget То reserve registers for your cwn 
requirements. ея“ сшас сОпя саса ity always 
шешшстег опе in the range 10-99. The linker always 
mEcgugkes two in the range 00-09. An additional twc рег 
segment in the range 10-99 will be taken dynanicaliy 


шини пе linker after the cross-compiler has made ail iis 


assignments. The interface information is passed 
Mmrectgh the SCRATCH file. Never reserve the las! 


t 
available register cztherwlise a memory overflow will 
never be а. in à warning messags. 


Cpzimizs sxrpressions usirg the standard rules cf cper- 


‚3 


be 


men precedence. Maru ES ОО-О пез се 015 


0) 


unnecessary generation of parentheses. 


Миша uses Of the STEP option in FOR loops. Rely on 


сі 
(D 


деѓаці inczemen-t (*1) whenever possible. 


| 


ЕЗІ Dser-detoned function is to be appiisd for it 
side effects only, then use one varia n 
ӘЙ Жепсп functicn calls. Foz =xampl=: 
00120 INVOKE = FN_ALPHA 
00130 INVOKE = FN_BETA (X,Y) 
COWO INVOKE = FN GAMMA 
Е-Е сспесасу tO OLinciples of good structured 


pseoramming, dc not pass any parameters unless 
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14. 


15. 


16. 


ШІ. 


18. 


absciutely necessary. Parameter passing uses а great 
С 


МЕЗІ Сі ргсагап steps. ре ето, == гсе actual 
parameters may te simple =xpressions, nesting cf paren- 
theses can beccme arbitrarily азер very quickly ina 


иде Ton calla  The*Tr=59 piaces a limit of nine cn the 
depth cf parentheses nests. 
Remember that the TI-59 aliows subroutine (SBR) ne ys 


to a maximum of six levels. Мүше Бес піссе the deprh 
e recursion. However, 1Е the recursive call Me. 
returns to the same address, ие а prob- 


Ши исте. This is because tne subrowtine return stack 
ШЕШІ eiwWays maintain the correct return address, етеп 
ШЕ) 1: overflows. 

EAX59 distınguishss between upper and lower case char- 
Шесте сп “аглабје identifiers. Exceptions are the "E" 
ван exponent, "the "FN " ace of a functicn, ала 
reserved words. BUS Lt=2n functions must be written as 
ШЕ appear in the BIFNQF or BIFNLF files (currently, 
ali upper case). 


ШЕМЕІС Егіс попеттіс functions conpuse in radians. BY 
default, 71-599 (trignome:raie We Oon Compe- e Xn 
degrsss, Marea Pemect lac unet Ors alo translated, 


вЫ E1OE о execution «h= TI-59 nust be reset с the 
radian mode by entering "2ND RAD." 
ИСП plan то под:гу TI-59 code znat has been gerer- 
Еа Бу ВАХ59, remember tha: on 
relative addresses. all other add 
justified. Ессе шеге: а= от delerionse ас rot 
réjustify absolute addresses! Unless you are familiar 
enough with the calculator to know what you are dcing, 


you will create more i ous rome otc 


Ihes special СЕН --ИСЕ. PAUSE, is ppowvded- тог 
assistance in debugging. This is somewhat like а 
message to the ccapiler. MA oia esto the TI-59 
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19. 


20. 


el. 


ра. 


lcvccdes 82 and 31, which are a void key and the "LRN" 
key. es Eyes des саплот ре sntered directly into 
the calculator. мое enter "STO 31% followed Бу 
the editing sequence "BST BST NOD SST." The criginal 


ШО СОО 11" will have been changed to "NOP 31." When 
Enccuntered during run-time, these keys will interrupt 
Be eut:on and Cause the calculatcs +0 enter its Learn 
моде. осып Stopping execution, no other harmful 
EN CC-S result. To resume processing, simply hit "LRN" 
Mmeme=enow che Contents of the current display register, 
ЕП '"R/S" <0 continue EXSCUTION. fas Stracility 
provides a convenisnt methcd of process suspension 
which corresponds physically and logically то the 
WBASIC source ccde. 
The BAX59 CPTICN statement nay provide other useful 
Facilities for debugging. However, most of these were 
designed fOr Gebugging duc cag inerallasıen Ge 
enhancements tc “he BAX59 Cross-Compiler Beware of 
BOTSICN parameters 6, /, and 8. Tasse + 
great deal cf cutput! 
The EAXS9 system will not =xecuzte properly unless all 
о hose 


cperating system on which BAX59 will cun. You may 


© 
asecciated data files ara maleable 


Meda iy the information ccntained in them, however, you 
should not change the formats. (These files are 


Шерепазсез 0, Е, Е, С, Н, and J.) 


Do not design excessively long iterative loops or back 
fumes. the linker cannot handle “hem. If iteraticn is 
required, design ioops which translete to back jumps 


ЗШЕЙЕ 8:6 не1лі within the Ti-59 memory constaints. 
The key to successful use of the linker is to break 
very large programs into smaller parts which can be 


prccessed sequertially “without much revetizion. 
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CROSS-COMP ILER SOURCE CODE 


app. РМ». tt Pn I эры дуб». ўїз. o sur m. sums aU. a, quts. ты, ago. отыр, айг т. оға, ақты, qp. aS, atra, EEE тт, ри, ee 


тыр рь Eu EUR EL De Bm u any, a ла 


KK ae No НЕ HE Moor oc E Hp cr cda eec = унын ны +++ + ЕЗЕК ОЊ У Ht Ht 
> 
+ <a O + m) + 3t i | => [11 03 "из ИЗ 75 
+ О H ж ! + HE + + і 1 ро PIZ en оо н 
ye С x; H өн СОМ а + е $ + | , ene s Nm o E ER 
+ п uua NO «<< 2 6451.409 07 + kun + + ! ! nm онсоц HH > 
+ i | (5 О 24 с002004 + ЕЗІ) % + , l п: EI DOFANNODOO 
+ Е: НФ РР Я < овча о + mu) + * ! l GRE HZI KGA ZAA E 
+ єп FO е а ог $050 E + + + à ! паркам ср ОБЕ 
+ m m £4 Ро ОРО О ОД «8 + ~ + + ! , се «тї; prm Qty 
+ Ч BID, ZUNE AZZ KHAA + fu ~ + + н l озо pa HZ Un) e Біг 
+ = > ONHH et Qo dH cD м “ола + + ! ! п HHHH UO WAA 
+ БАР Ориз НО о EN X HO + + l i р А Олю ОО O 
+ (DORIEFIFAOFEII 0 ЧЕЗЕНА | А + СОН + + н I HHO WH гога но OUO 
+ Ө ГД, Шш) (т НҢ EHEN HAs + бл 3 + н | = NSO Sao ==. 
+ ООО Ох Qe U)O E Fr-dHmtu + ж зо; + ++ i" ! ПО Пе БЕО О mmo mh 
+ “2 ORINA ff + ОЕ ЧЕ Ое ес + + + , , Са Q]1-31E3 03 05 CO „4 R83 «€ «X EA 
% е ТӨЛЕ ше! 2U за DARI % ~ > + + ! > | mm d О ~ ду бил" 
+ 70152 са опа (Оса 01012 AN + пе... + + 4 г | TOAZHOA АН РИН 
+ оа 1 071,374 +409 21510200 Ок ЕЕ + Оп, 3 3t ін |! ОЛЕНИ © (QU) es ed et (т>; 
+ GW WHOM taps iy NHDH SL + ыг + + | 7 1 1 01-7193 (2 
+ 4 обечео Сб, AWM MOM 0504 + uds + n 3 i >: ! рас US Зе с С Са (2. 22 03 
+ A m ООРФО Га Ро 81641 03 0:24 :ж (2. 4 О + «чет + Œ~ + 1 OOHO Net MM fug 
+ нын 2 KTIUNNDODIODLHTAÄAUFEINN жи" ОР 4 moz x mn + ! ! TO O HR H > ба Ен а а ~ С 
ж оп О  2АЉЗОО О MHA mfu м X Еч +» бю! Е ШИ О (9 О ЈИ а 05 
* >] ба оа 0201 МО т м oF + ~ ~ * El + I 2, ‘ 020) 834 pg una 
i4 OO AIO OURS Пате Др] c5 3t Hfu # NS + го ! дё мамы зе O 07) te 
* О > 029 О oOoV: Om DEI ZM + Denk Ж «в + ін |! «Hs Fa] 
+ ! Bart E Uu ра О 22600 «веч + сїн + га > 1 Е | EH EO PPP UO EN MERKUR» 
+ з Ән »5»iHU)OD га MHM + HAN + en + | е i ОО Rr u)dau aam =] 
+ п л ЕН ЧНО соч СЕУ + сан + Ar + i m i -е-ч + ЈЕ ЕУ 521) 157 (42 2: 
* O Daum огнен FA «0000 + OH + + 1m | 
+ m Суг О О 2 О 02 HYMN 0147909 О + % si + | m] N 3t 9t 3€ 3t 3€ 3t 3€. 34€ 3€ 39€ 3€ 3€ 3€ 9€ 3€ 
+ HNL 01 Ое НО 161014,1 FA + A нн а Ж | Го |! 
+ оу > ҥш соо (лып 09000) + 44-41% о + t A i трее орет оо ое весе трое © 
+ N И 422 | Ыш гул О Са ғалы + на t+ w + 1 ! ОСС сен C со 
+ д лем МА Орша СО САО 4 ума 4 | қ опа ғ 0) + | € | r  NONNONMm те 
ж ж-ш  одепиа АС Z BOA Ha ы: сн # + | 9) 1 (N о 
4 m OOmmunmowo „веб Он ДЕН Ж жо + % ЈИ о 
+ O DHAZOH»O О НН. $ HO + + бе о | Сл 
+ сз јр» О РЕЈ] Томи“ 27020007) оф dt ~ + + i 0 1 
# О Ва ОДО м ОМ НН лс ла + + + ! | Hwy gg ggg wg 00 0) 
+ ОНО «СЕЗ ооо + + + | | +: 
+ Um fF MDMAA eH SAUD X + + | н >ч H 
+ E) ова NHD r 1EA Dd 53 FH 31 
3t naa 353292 ааа алгы Fi Сл x { | | 0004300 rro v 
+ = м шина Пп «а ж 7 + + | | са СУ) ма 22 И <4 1400000) 222 05 (0 НД] 
+ 2 СЕ Еч НЧЕ Ба ЕС VMU # x * ++ 1 о са ОРКЕ ОД Ела 50 58 Ба [23603 
+ руни ЕО ЕА со СО на “Fr 6) SPRY ete # = + + ! | T O но EA € OU CD Qr |o EO ee ou ЧЕЧ 
# 234 «а (ПС 14 ШЕЕ С S 95S» + п} + + | | (QD VH 5S PS PSU) сц КД] СОБА HU S 
+ MaANAMMNHATO eM SMR + + + i | жж ш бб = БА (T) 725 zz I HH 
+ нөл 09-172 ЕРО БАЛОН ЕЛ ро Y > + + ' ! 03109 09 $2 3X2 X3 TU 0d 3 Ea E E 34 E 
ж уме да нын VAZE % «қ + + ! ! 
ж 22 ди: Зевс 2 ае Он X па + % à | EA 
+ HAHH НЕ О С 0 ГН Е к 07) 0 51 + (9 + + l ! п 
* + о + + ! ! = 
3t 3t 3t 3t 3E 3E 3t 3€ 3€ 3€ 3€ 3€ 3C 3€ 3€ 4€ 3€ 9€ 3€ 3€ 9€ 0039€ m HH Ht Ht tt 43 t3 О 


110 





7350L5 
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Sr 


GICBAL DECLARATIONS 
ЖЖ аж КО ЖИ ЖЖ ЖЖ ЖЖ oe жж жож Жжжж жж 


KEYT CODES: 


TI-59 
Пи пп _- _- --- nn ann nn... 2322 222. 22.2 2% 


ПННН-_____________-_______--__------------------ ------ -- -= 


ж 


ж 
ж 
(жж жж 


| 


РР кесе ее ok asco Жж жж A CAR Re жж Жж Жж жо 


{* 


| 


. 
ороор ор ое ор 
- e = = ы - = = 

(ЭВ е. фе” 


ZN as 
eG HO «$05 «x i) 
ZA UA LEO A ES 
«саса ОО 
3 = Ч О Ш р БЭ 
паруе С» 


ечете”аәтетор»ФФетет”ебФ ео еФет9%етоеФтетеЭебФбетоетеоееЭ5ететететоетоееетеФтетФоФт-ео90б6 ес 99% ет9беоты 97” ео 9б”еот- 9бет?ебе 
ANN TOM ODNHNODEAM SNM соса ОР СС оГ OVNOT-MIMIWONV- DONA UNO ROO 
МРЗИ ИО КОМО 1 O11 DVO WO LO LOPE PY PEPE PEE Pe E г~ c0- 0509009 0000 70 00 00 COCA C OV OV ROV OV OON 


иинининииниинииииининиииинииниииининининиинининии 


=> NAAA H AAA Ен са os ил 
єл, = ОРО ги lt = Си <> ME hy 
5040 HHHEW HHHO UZMA HZOmMA H NuU «ен 
«1 «(> (054 Е4(9О (012 4. саомкмипеае села Онысын N. PUVUDDHNPH 
Са Су ба 224 25 Ра Ен (5 Ра 05 15 ка ва О 04 < 09 Е4 0 25 >> 03 4-01 09 Еч СЕС е НЧ 75 1 21004 49 2309 
F1O OO f fap poma Ра ч ан Оп О рзи НАЧ ОЬ Сога Со О кеч С Онар mum c etn 
Егер aa 
међа ма ба за Sá NS ба ма Ма Ма Ма ма SG he а а Sá S NC SO SC SG ма за а ма а а а ма ме Ма Ма м Ма ХО а S6 NC Мама 


ФтетоеФтеФтекет%бетеоетеебе әт еботоетеоетоекһкетоетеететбететерететететооетеретео әФешр I PIE IH FF PIPPI PP EP EI ETF IH BI PM 
оссчозооюогсодоссчта а пог-огосчтзогосочтааиг ог C00 QOO CAD SUY™ OA 
m mr 77777 NNIINIDSNANNMMIMMIMIMMNIZI 9 23 29 29 23 13 310) 


о са {1р4 > ра >< 
03 mi 09 05 03 04 +39 >> за ma ZFHOFHZSFMANNOHTENUNN 
М ar бума Оо тиан роса нч со ВОЗЕ ОРО Ра ИЦ 


C7 C900) zr uw Oo D- 00 0 40 O) A ИО О AN HH U O CV XH O E4 P$ PSU U 00 OD) оз орле 


ооо M gg 
NG NG hc NG NG BSG BG NG ЉС МС М SG SG SG NC SG SN SG NÓNG SG NC SC NO SG SG SG SG SG NC SO SC SG SG за а ба за ма мума ма ма ба за 
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| 
| 


ж 


RUE 


T Åe еә чо ео ewe ew m -- Х< 


USEC MOST OFTEN OUTSIDE OF MAIN Dx IVY 5 


* TCKEN NUMBERS 


По nn nn nn nn nn a2 no. чт» Tr «қ» ақы ақ» әк» ae «ат» = => = = 
ж 


| 


н 4 4« Яс - %еФтететееФеоФежт еш %шөо. 
О тт с 2 20 ОС = СО СЦ 
04099309 NANAIMO MM =o 


"Ww Wow uw aa 
о 


ка ма ма e 
ооо = E 
м ч Еч Еч I NG мо за ма Су 
Oma. 03525 ООООО 


HWHH ма аа О О БЕЕН О 
27: 09 + f СО ООЕЗЕ ЕН ПІ 
MEAN EHEH EH E4 OB] 0 FA а 
о Ж >, Още Оти ова 
на аа НОО 2 e Et ONU E] 


mem mente ara nen 


ОН СС сви ~ со ДУО ти р ~ со 
сес ee 


4 Wow n no wy no nw muTugT 


SG AG 

MOSM ~ мю № 

Омомо S8 О Ом 
HHO bs i 2 сы O 
Qa EU) O Q FH S SE eO COIEA EA 
О UII tA OUS О ОЕ СС» 
ADO 52 ete жың ізің 
СА СМ EAT HH A AA O A O E 
РАО 21013129 0 О ® ІН c, 


ШЕ 





A сие, — ve Ро У Een — Гр „че р ч o UI GET, 
3t 4t 3t 3€ 3t 3t га 3t 3€ 3€ 3t + 3t 4 3€ 4€ 3€ 3€ 3€ 3€ 3€ 39€ X 
! ! "d ! 1 1 ! 
! ! ил Ti ! 1 =; l i 
! ! het Oo. ! 1 I ! са ! 
| | e a T MEE н ES | hr] ‘ 
! | = Furt са (а шон ! H ! са ! 
! ! rý Oa ш | ено | «L Гр. жа ! 
| ! оз OO смо nme i E4 го 2—59 I 
1 ! са tm саз Ра ге. | eee | са 27 i 
! ! > «ра AHH 12556) i esi = са ! 
! 797 TO TZ IRA Fl | Ove NOUV I 
! ! OQ IA FH ГЕ aa + FA ІНІ! 02.6 «1 ! 
| || + + ~ | i —1- |! E41 El 3] 
! ! -- е рр, > NEID el к I «CH 00 [53 |. 05 | 
| ! == ООО m INWA I Es ие 2 SH (Ol 
! ! че) fz] ! НІНІ | ет | UN = 5 са. 05 | 
! ! = У е... Г ГЕ Fil | са но | 
! — | HO. Tres EH 1 «7100 | Ба | са Ра ••22 (0) 02 (9 01] | 
' ж | ЗЕН ~ TOZZI O 1! ЕНБІРНІГІРІІ ПЕНЕН | 
I H 454 +++ H INZ | и Нетто: | 
| = | eate ом - нон 2 ! 
! =. 1 55 HHH Ге |» eie © {|> FAI Saber 1 
( ae ee (OU O MEM 1 fr] (mM poQmrmmeou)! 
| I ео ciu» | с. ба | oe Y) гето! га | 
! п ! > Or «Ча ж | O 4 ©) eu ! ЕНООСОСД еп | 
! = i zt - ee MOR) • IO my =” са (I RIS MAY ! 
! O ! T —— Qm. UO НО H С? еНШЕНГЕКТЕ | 
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! AG ! HUNAN mm • • • m | 0 0 | ма е ІСА НООО! 
! e i ОО et 8G U) папа á eree |] ! m) HO = AANV uhu fu | 
! - ! AmO et ra ex eee 9 | 04 (7 Е+ 1 ° NOAA ЩЕ 1 
t O I MOTHA e Ы—— ОНЕ I ° — ран HH ! 
г a l MIU») reed) AN (UH I ! са Qd (гї (ҮЗ ! 
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i ын ! e.» ee eeo OO 1110104 іп l HZ | QI tn (c | EA EA > > ! 
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1 p | OOODOOOO® 1 (yA, елей “Т "(Dan fx] >>, «1 ТЕО) ! 
| ~ | і == | са гч ! OHF1A Ay Qs | 

| p "un nuo na nn "n n m | мет | || бкл Сб i) G1 | 
! ! кон а ООН 1 
! ! С? | 2B, Í (11 + гїн о ш о?» ! 

! = NG Aa 
| | Шо е 22 Б |р, А S IB “abans | 
! ! 2404 21 (00 (О (9 HH NM “т 1D HI Е E і 204 
! ! на а (Әрі + E | mene 1 H uN сазри пи | 
| ! {нч сс г 09 69 >< Е Б mj и) ЧЕН! «т «L БЕЗІНЕН || 
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! i «92 | Betere ! 
! ! Ex косо 1 IAAD ! 
! t а, | ! | 4 
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RRAY (.CTEXIRNG.) OF CODET 


¡IT 


A 
к 


COLECHAR 


0 
END 
= А 


= RECORD 


БОГЕТЕХТ 
CTEXTSTORE 
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ELSE IF (TCHAR = PERIOD) THEN 
FEGIN 
DECIMALPT; 
EXECNENT: 
ADJUST: 
TCKNUM := NUMBERTOK 
END 
ELSE IF (ICHAR IN LOUBLE1) THEN 
BEGIN 
TCHAR := РОТАМГСЕТ (ТСНАВ); 
IF (TCHAR IN DCUBLE2) THE? 
TCHAR := PUTANDGET (TCHAR); 
TOKNUM := RWLOCKUP 
END 
BLSE IF (ICHAR IN SEECIALS) THEN 
TCHAR і- РОТАЧГСЕТ(ТСНАВ); 
TCKNUM :2 ВЯТОСКОР: 
IF TOKNÚM = CMICKEXC THEN (* LOOK FOR EXCLAM CMT ж) 
CMTSEOOL 
END 
ELSE IP (ТСНАВ ІМ SUBERROR) THEN 
WRITE (LISTE, ижжржж SCAN ERROR FOUND AT "', TCHAR); 
WRITELN (LISTF, '"...CHAR NOT IN THIS SUBSET!); 
ЕЕЕСЕСТ := ERRERCT + 1: 
RECCVER 
END 
ELSE 
ВЕСТИ 
НЕТТЕ (LISTE, "жжржж SCAN ERROR FOUND АТ "4, TCHAR); 
WRITELN (LISTF, '"... UNRECOGNIZABLE CHAR‘): 
ERRCRCT := FRRORCT + 1: 
RECCVER 
END; 
FOR I :- {ACC INK N ТО МАХТОКТЕМ DO 
АССОЙ {.Т.) := BLANK: (* BLANK OUT REMAINDER OF ACCUM *) 
Ж...» -- ч» не не же ee eee ae ч» ee че що «и те «що «що «що що ат» че что ww www «ще ат» чаш» аш» -» чт» ww ww www www «» «» «ы «» лы «ы «» owe = ж 
* DFBUGGING TOOL: LISTS TOKNUM AND TOKEN AS IT IS REAL. * 
IF TOKCUT THEN (* OPTION 7 * 
WEITEIN (OUTFILE, ' ':6, TCKNUM:2, ' 1%, ACCUM ns 
IF TOKLIS THEN * OPTION B'*) 
k WRITELN (LISTF, ' ':6, TOKNUM:2, * |, ACCUM, 11) 2 
END; (* SCAN ж) 
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(* ж 
x ERROR/ CINE END HANDLING ROUTINES j 
ПИ aA coerente nre 
(%-06----------------------------------------------------- ж 
ЖИЕ ЕСОТЕНК SCANS A IINE AND DISREGARDS TOKENS UNTIL IT * 
: NOS A COMMENT, AN END OF LINE, OR AN END OF FILE. 3 


ESUCERLURE FRECOVER; 


PEGIN 
WHILE NOT (TOKNUM IN TRAILTOKS) DO 
SCAN (ICKNUM) 
END; (% РВЕСОУЕВ ж) 


РЕКЕТ a e EEE RE, Te ACTA NE AA RARE AA AA E A e AR) 


ж-2(0-ж 
ÍRoCEDURE GENKEY (OPCCDE : INTEGER); FORWARD: 
РЕ ЖЖ ЖЖ ЖЖ ЖЕ Жи ЖЖ ЖЖ КЖ ЖЖ жеж Кж ж | 
ж-())7----------------------------------------------------- ж 
* DERROR 15 THE GENERAL PURPOSE ERROR HANDLER WHICH: | 
* GENERATES SPACE FOR REGISTER OR ADDRESS INSERTION IN + 
(* ORDER TO PREVENT THE CODEDUMP ROUTINE FROM CAUSING A ж) 
(+ SYSTEM ERROR DUE TC INVALID TI-59 CODE GENERATION; ж 
* ANNOTAIES THE LISTING FILE WITH THE ERROR LOCATION: ж 
* INCREMENTS THE ЕВЕСВ COUNT; RECOVERS TO END OF LINE. * 
EROCEDURE PERROR; 
BEGIN 
GENKEY (-1); (* GENERATE REG/ADDR SPACE TO PROTECT CODE 5) 
GENKEY (-1): (* DUMP ROUTINE FROM OPERATING SYS ERROR. ж) 
WRITELN (LISTES,'**EF** FATAL ERROR FOUND AT "',ACCUM,!"'); 
ERRCECT := ERRORCT + 1; 
PRECOVER 
END; (* PERRCR *) 
A A ADS 
(%-08----------------------------------------------------- ж 
(* PSUBERRCR DISTINGUISHES AN ZRROR WHICH IS A RESULT OF ж 
(з USING A WBASIC COMMAND NOT IN THIS IMPLEMENTATION. t 


ARPA SUBSET ERROR FOUND AT "',ACCUM, '"!); 
+ 1; 


го 
Os 
О = 


(* PSUBERRCR ж) 
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ok II K IK HK exeo жк ХХХ LAK KT I KK HA КК A A I a 


3t i16 3€ 


AE ET URNS TEE ПОНЕО THE STRING CO? 
Perce se (oaum Cr ORD VALUES OF CHARS MOD HA 


Un uz 
ЕГІЗ 


BENHCTTON HASHVAL (ACCUM:TKSTRING; ACCINX:INTEGER) : HASBRNG; 
VAR ENSHSUM, 1: INTEGER; 


BEGIN 
HASHSUM := 0; 
FOR I := 1 TÓ ACCINX DO 
HASHSUM := HASHSUM + ORD (accu (. 2.) ) ; 
HASHVAL := HASHSUM MOD (HASHEASE + 1) 
END; (* HASHVAL *) 
(ЖЖ Жжжж жж Жжжж жж жж ж о о e e К е о ок жж) 
(%-12----------------------------------------------------- ж) 
* GETSLCT HASHES ID STRING IN ACCUM INTO SYMBOL TABLE; ж 
* INSERIS NEW SLOT INTO CORRECT HASH 3UCKET AND ENTERS ж 
х TDENTIFIER NAME INTO IDENT FIELD; RETURNS SLOT POINTER * 
n TO THE NEW SLOT BUT VARIANT TAG TYP IS UNDECLARED. : 
( в > = = <> с HP o > > 4D o4 A әәә чар HD Amp CUP «up AD ЧАР «но чар чт» au ED => «қр ЧЫР сш» sub чт» чи» «ар «и XD cub чи» «и» «ар «и» > <> чыз ЧЫР ЧЭ чыр ЧЭ оэ чыз ED P AA «но 
FUNCTION GEISLOT (ACCUM: TKSTRING; ACCINX:ACCRNG) : SLOTETR; 
VAR CURHASH : НАЗНЕНС: 
IDSLCI : SLOTPTR: 
BEGIN 
CURHASH := HASHVAL (ACCUM, ACCINX): 
NEW (IPSLCT) ; 
IDSLOT2Z.IDENT := ACCUM: 
BUSTOT2.SLOT :2 BÜCKET(.CURHASH.); 
BUCKET(.CUÜRHASH.) :- IDSLCT; 
GETSLCT := IDSLOT 
END; (* GETSLCT *) 
ER E УК E e ek Ж жж eee ot E lA E ж Жжж Жж лк Жек Ж ЖЖ ЖЖ ЖЖЖ жж) 
ЕРЕ с _______-__-___------_--------- ----------= --- 2) 
* FN CHK RETURNS TRUE/FALSE AS TO WHETHER OR NOT AN * 
г ACCUM STRING DESIGNATES A USER DEFINED FUNCTION OR NOT ні 
FUNCTION FN_CHK (ACCUM : TKSTRING) : BOOLEAN; 
BEGIN 
РМ СНК := PALSE; 
ІР" (ОРСАЅЕ (АССОМ (.1. ) = (р AND 
(UPCASE (АССОМ (.2. = 'N') AND 
ACCUM (.3. = 0 ВЕ) 
ТНЕМ 
ВН СНК <= TRUE 
END; (* FN CHK *) 


(RRA A EU oe ek eoo c oe oe eoe A FE KK KK) 


129 





Ра айтчы, ч драты Eu we Zw ть, ұу, 
UNO UE S Doo 


A Es UN fr, мо 
M>z5no mf, 
Aaa. maria Er 
нча > Е н 


Осовеано па 
R1 E 
Mee fF} Owen 
чазао он 
HORG KTO 
er > ДО Al 
AGH 04:42 ~ра 
Ок ПБ = 
Ры ЕЗ ЦАТ“ (0 О 13 
расов AAH 


iQ Th Eatin N 
E = Bi me 
um Eid 
от en C e etd 

шәйді DZ 
Das Банко ба 
MANH A «i 


т : 
B 
G 
t 
S 
W 
E 
E 


Т" еп ки (а гр ЧИ а И | 
! ! 
кететин 





• 
? 


INTEGER 


FUNCTION NEWREG 


е 
H 
C 
fi] 
m 


Па Е 5:02 
— pA cd 
ЕН О 2104 
Ри) 22 О •• 
MATAS + 
а JÁ 
са 4540 
tur Hr 
HHE NA 
п # rom 

ENIH ГО «а 
кейн 00 > 

сшч щщ 
ЕЗЕН» Me 04 
оз Е+ 
р < -Э ыз 
MA • Фа 24 Б.р Pet 

HOVO HHHEH 
“>п лл) 
HHH 

Ет Ет 
( > .. 
AN и 
рег, == UD 
ЕН со oc it 
мо не к ыра 
мега ӨЗЕЧЕЗННЕН 
таа ЕНИ чә 

ЕО МН Е 0204 0414 


= 
% 


1: 


ERVE REG DO 


= 
G + 





Bl» EC D Ее Уа 


AU рз т] 
HZ m 
1 рур 
= ZH 


ЕС + | 


N FXTR 


o 
+ 
ea 
E 
а 


ви 
UNZ 


EWR 


N 


(= 


END; 


БЕТА ЕХ ЖЕК ХА ЖЖ XXX OCC ХХХ жж ж ж M Xo oor * 


* 
* 
x 


THE 
D MAY * 


ON 
AH 
SE 


по са 


= = 


LBISNG; 


FUNCTION NEWLBL 


= 
ні 
O 
fx] 
ш 


N .. 
% = 
e æ 
E e 
ж O 
О 
= О 
KH FY 
са 
гї F4 
> fr 
о Ww 
fx] 
+" nd 
Ге е 
ff) * 
кост е 
зі 
Za Ir] uN 
ee 114 хо 
— т + «а 
. E + [0:27 
ЕЗ жні 
г) owe + га 
1 e tlie 
m + 
~d ee = & +» 
ee fx] Бар Ва 
и Es HE 
+ < nun 
iz m HHH 
MH We 
en tdm aus anas oca 
1.34 ! 
O Zee 
ні lIl .. rd 
| eu pp ES 


"ы ОДЕЧЕЧЕЧО 
ee() een tkt 


(* NEWLBL %) 


- AWE Па ee 


WHO OAs RFA 
HONEI = 
Z Q iz] 
[43 00 [54 
IH 


Ф 
? 


END 


(хжжжжжжа A oie ole de oc dcl coe zc oco TAT FF FF FAKE EEK KK) 


130 





) 


| 


• 
% 


SLOTETK 


TKSTRING) 
SLOTPTR; 


ТЕАКЕНРТЕ 


e 

C3 

Aa 

= 

= 

© 

г. 

E 

< 

= 

~" 

= 

2 

a 

+4 

Hi 

.a Tom 
ма en 

СУ cored A 

tid Quy 
ЕЗІН 

Nm м 

“з єтї, uo 

mul 0 

.. ~ 

ин pr Ha 


ВЕН ТАСКЬОСК ж) 


з 


е 
% 


2 NIL THEN 


LOCKo.FNP 


ү 
< 


Са ет P4 tb Db SG 


cen EZ mí 

Ел не. 
ма Си па тва 
Q 25 X03 HU 


ve QOO rnm ern 


ЊЕ О taint 


FUNCTION FNSTACKLOOK (ACCUM 


C5 Fra fea Pu EH 
rl 


(кжжжжжжжажижжж жжж ж жк жжжж жж ж хжжжжжжжжжжжжжжжжж жж жж жж жж жож жж) 





«ын 
>] 
UN UN EE 
Ч == 


жә» аи» «то че» ае» чт» «то» «то» Фе O A = 9» тр Чт» ча» «ны «нә ак. TA E о A A A A еш» «чи» чие а» «но си» ЧЕ чат» чар яна ӘР A A қыз «ЕО ар чыр = ча» «ат» чат» X 


7 
D 
A 
D 
H 
L 


= ------------ ма Еке 22.0. ------------ ==) 


jt 3t 3€ 9€ 4t. 36 3t 


* 
E 
ж 


TO 


ACC RNG) 


Mineo RNS A POINTER 


ACCINX 


ə 
% 


SLOTPTR 


TLOCK 
mS on come Nene en OPREATE SLOT INTO THE SYM TBL 


POP a eiue а me m on ee в» << сн DE 
IDENTIFIER IN ACCUM AAD 


HICOR, 
(%--------------------------------------------------------ж) 


ENNCTION IDLOOKUP (ACCUM:TKSIRING; 
VAR 


р; 
ES 


4 
UN 


BEFTIRSRECERNG) = 


eer CO Г АССОКУТК5ТАТИОС; 


È 


FUNCTION 


ACCINX); 


о 
» 


ob Cae Ok 


MDSICI 


VAR 


+ + 
О 
Et о 
ізі 
NA 
са г, 
«LO 
Im» 
п 
54 0 
tao 
no 
Zar 
H 
(+ 
OG >< 
OH] 
u 
| 
Саса 
Оо 
uN fx, — 
> E4 
HA + fl 
—— „мга 
сәні 
ù a 
“еСус” 
2% •• 
со» 
ee fz} 
+» {Ye 
eet?) - . à 


сат | | [42225 
ur f et e 
ве и жт. 
e* 96 «pt me 
по Za 
оо оос (NIT 
DI «г 
Оба Ри Са 


zt 


MZA MUDA A GA 
eeu > Dm kyo 
C9 E- Q5 ex «xc c DOE C) 


(11 


FNREGNO:5, ' ':3, IDENT) 


i 5 


9 
49 
• (15 % 
ен: 
se H HI» ыч 
KH ee +] "г 
2..4 Wee 
Zr es. зејтј ~ 
г 27 е? 
NOE 
| Za 
n ат Ма 
ч Еч ! 
СЕ би AH ee 
YH Ж {ШП += 
CU bEAT4 4 H4. c0 (O03 
тє! > 
HA m 


SLOTA DO 
is LOT 


i tH Ч 
UE = 


| 


E 
END; 


ENTERID x) 


{ * 


032 


% 


(Ғ%------------------------- E ccm c eem mue mec) 





#3 
(> 
O 
# U 
в тп] 
а” e 
н E 
«сма 
2460 25 te 
Of) fun 
ініні ағ; 
DSH О 
ма О О 
OT (mv 
OBRH 
HNZ "mx 
a rs. O 2 
Fm gg OH 
LAU 
# П OTY 
= о (72702 ta 
OH 
Mr OO TH 
O UH 
жс "m 
Hed fu 
сені 
[т] 


ASHVAL (ACCUM, ACCINX).); 


DO 


(ТІООКО.ІПЕМТ<>АССОМ) 


== 

[т] 

т 

.. F4 

HE 

QO =: 

A WWI D 

...” uu O 

+ < e. e O 
O I ax 
і. О 
NA OO но 
eH ОО + 
AIM „44 HEN 

«сол DOES E 
ОО сащ: 
Ооо ма к ае. 

44 С? с... к 
TES Мат 
м мю (о 
НИЛ: OO о 
ОсОО 
HA "ОО 
SENS RICO EH OU H3 3 

a ЕЧ 
ӨНЕ 478 

red eo г. 

ен FA 


p 


ACC 


ENTERID (ACCUM, 


IDLEOCKUP I 


BLSE 


INX) 


(ACCUM, ACCINX) 


SNTERID 


END 
CSZ 
IDLCOKUP 


E 
D 


TLOOK 


LCCKUF : 


EN 
ELSE 
ET 


END; 


(* IDLOOKUP *) 


133 





* 
x 
Ж 
ж 
+ 
E 


2 
* 


CODEPTR 


NEW CODE DATA NODE 


MANAGEMENT ROUTINES 
À 


INTEGER) 


FOINTER TO 


A 


COLE DATA STRUCTURE 
Ak ak ak Ak a ak k Aea ak kak k ak akak k a A ak ak ak ek dk ak aek ak ak a eak k ak k k k k a k k k dk k k k kk k kk k 


NENCODE (OPCCDE 
CODEPTR 


Zum... un - — ЕРЕ СЕР «ит» «ы» A A «ЕР ЧӘР Әр END ED СЕР ӘР Әр «қ» «к. CANO «қ» «ЖӘ «ЕР «ӘР «к» «ЖӘ «к» A A чи» «и» чйр ч» «Ж «Ж. «к» сир «нә «шн» AED «шн» Әр > <= 
ЕР 


Meee LDS ARE INITIALIZED TO A DEFAULT VALUE (EXCEPT KEY) 


A ra o doo o a 


X oic ok ok oi oe oo cio o tok oc oc ojo ож жк ожа ж а к к ok tk oO RK EK ж 
BENEWECLE RETURNS 


x 
ж 
Ж 


FUNCTION 


VAR 





~~, en, -_ - ee тайы ола и PAS wre, 
% + jt HH H 3t + 3t кники жж % 
+ ! ! + | ! 
1 + н \ pl + | 23 | XU) ~ 
со + ! ! pl + Ше н ЕЗГІ на 
C LEN біш | wv * (OR | HZ NG 
O + 0 ke! Єч не ош ! = | = 
= + IT | 2 wk | Сеја ! Е iJ 
fo + (boa 1 р + Ке) ! ес С 
= * «Do! + | бс | оо 
+ Mal I + + ЕЕ: | о + 
+ + н то. ! — = | • | E ~ 
~ + IMATI % Гета! «909 
% ГА ғ! % ! Car! са 27 
я ТОР І + 150641 aH 
% ооо 1 + |! E475. 1 - 
* oa J % IH ні ова 
+ IAZA) 3t | ~ рака | БЛ” 
# жени + га г Art 
+ ІНЕН o! + I MALH 1 т 
+ ! mt | + 1 (92:00 1 e 
% ГОР] ! .. + ! omo! са са 
+ (HEM 1 ~ ж му TO 
% гама | ра % | сл ! zn; 
% інгі! Fi + | emn t! папа 
% | ! Ay + (Himsa | On] 
+ І ГЕН | 23 % ОНО! + 
+ I ODRI A % I ZO 4 
* 102021 о + рт, ++ 
Jt | 2: | O + {mene | — ue" 
% i ба 53 | + 14 El .. 
% | 525 2: | .. % ГА н — 
+ (HOH 1 + y bardo 1 e 
+ | «104 | Ay + | СӨГІР? | ! 
+ + СЗО I са .. % ! ОЕ! | т 
+ A Нн! = — % 1 eie! 
X (5306 I O - * qoe fx] 
+ ао і т фо. ж MOI i eof eo 
+ ко Ql меш + (меси | Отар: 
ee + ГОО | pa a hou 3t ID 04 QU ONO 
E] + { жз! «L по 3Орз + ! ме! о Је 153 3 
a + мо г > TAONA Ж рїн! o mu 
...... О * I (me: = HOTU è Ж oO AD | T UZ o o 
HHA OU ee % корат: | о са + Im Di .. 4 о зе 
ныне р: % Г ОИ > ее! Сі + I 51 м Ғғ toos 
mu ОО % іште py MA ARI eO + тал н | C A M eO 
+ І СІНЧЕЧ | га c = + ao | ES n3 . Ом 
wud nut + IN Xy Qu Aas + f A mu 
eo oe oo vo ot os ме ісіп ос nn Om + HOSI w O H OOU i4 
en + HEH |} Qu • • 2304 + ігі о о 42442) 
bh hu u pG % 0 - | Lu ли + ! rG l ии И 
(инсон ыц Ма барары ж ЕТ Ha Au eo. X og! mQ0]01! мн е 4 4... 
(0141813 «е сан4 са % (LIVES 1 en „3 са сз (д + | 5363 ! m зо 
ло ше со + Ixvii D Onna, # ISNI D W ов са саса 
e... .) к Y Eno | = TOVN + IANN | AQ Uu сэг (0 
заза + он оО 1 Ww а шанг + OHO | HH eOoOodoG 
НГ Ра р Ри Ру 3 ое + = 0. 00 |! O нм том... + NDNAD ı O HINA QU so 
OZODODOZA + ! і O OH AMA + ' 4 О го ообома 
E) = ғ jt 2t 38 35 H ба (^J т к кк са a = 


(FAA a a A 22 2 2 2. 20 2.2 2 27272. 20.2 22 2 20.22.22. 2 20.2. 2.2. 2.2. 2. 2.2 2.2.2.2. A OR ER) 
134 





| 
| 





135 


— ж. atre, atm, ntm A, ФР И РЧ En, GE ДР" урт. —À P an atm, 
Канина д + к HMM HH HH и ж заны Je 
I | с + I à + I I 

о to | FA nm + | BJ 1 от + l ба | x 
ГЕН өң” | Da B) X i vU О | O + | = о ! а 
I Еч ҥн I A ка 3X Um б | ш ж no I T 
IO HHU | e ~ + ви ood т + ІНІНЕН | | E 
ігі жє; | O са ж IH MO |! р + { єттї 4 fx 
ІНІ Ыы | о вн + IHNEN 1 > + | (ич чс | = 
| сањ 1 м + I m =! E + I E+ 1 Ei 
(Maat | .. > +t ті СИЗОВа ! 7 + (emp A 5 
{ 11 Нет | H + п окна .. DO + Шејеј-: i ù 
! о єє 1 из 3t Коло э о; + Іс) ie et 

(Me 53 ра ж x IH Dem, ~ ж + | I + 
це!” O — + if = са t A — + тео wf ! .. — 
| шаре I О + го Е Огер | 23 + | ZHN = 

| Зе ДЕ | і % (MOR AI = + | Еч ЕЗ ЕЧ ГЫ 1 m 

ч аот | % rm mot + + НОО ор Ез 

(MERIDA 1 ni + | = Atv! - + (OU MI œ 

| СЕК О са: ! e + кҥз ! it ! Q ZI! fx) 

| Оо I > % ГОО) => 7 1 e? + И он.) > 

ınzm no ! + єс, MOF I + ғо eH. 1 + 

кес ы > | .. ж I NU HNI д + ГО [1034 | o3 

| Пе раса | О ғ бе лчалғынының С + ЕО 1: > <9 7? | 

I UE 1 Л + | CHO = % О О 0! ee 

(річн Оо I O + (taki «се| и + Жо Mom 

рат) I m + (ZHI Oe + MACAO (м 

| OZE m ! Е ж (me: HI H + 114 OI A 

IOM > + #'О сет. y + ' SKRIV I 

н {Үз зг; EA ! H + ! E4430 2I п % | m н ~ 

ГРЕЗ I + ІНІ! ex + t (eme Y! 9% 

a I бо | .. + го O I M + ү п MI D 

г жвамщо | + I нарар | + (ажы! © 

| ro Іі A + (3*0 Al ee .. + асна | с 

"са о а | а + ісі СО! ы % | О О пе WY .. ‚> 
гвазаг 41 О .. + (| сар)! x - + IRGA 1 (72 са 
IED n | ы — 3t | ed EG I => I 3t | се О! са ЕН ЕН 

і чоо г A fx] + гор р = — + I Он. ж fu Ay 
(«OO fF ef O Qa + IH 14097 H + It ZH I > 4 O M 
! CO күпоо) | сай О + tur 4 ! (3 4 % ! Ur OOl = • . С) 
га сү өл! Oe + ‚осоЕ ч, ~ ees + | NENE | B'e OA 
(MORE at w до + тоон | .... от Ж інісгені 064 ma Pa» 
ІЗ» mo, FM ee QUO + | нитко M 0203 (05 •• + ФӘ щот A DH Yeh 
о Онар ж ш ~U + о ы HI о Be UE EE Da + Ita zn, E O [ay 

4 (0 29,1711 H Еч О + газ 53 ! ш па, MHH % 10h] QI! = Py || hot 
run» ш О | m n fe}. + ОЕ. > М р + г FIR == + (Ariana, P 21 07 о о. 
(FIRE) О F A са + I Ее | n) oO || + (HOLZ! zz ce (В 

! 9 ЕЈ О ба | n A оно: + і СУ 0 О 1 = HO ШІ!” 3t ! HNB | ЕН |, 03 Са С 24 Qu 
| РЦ аб |] 2 0 Ve) + tG N жа м HU ...... + (E Hott. 5 e*t e Oi 

| EA TF но = + (OAH) ыч .. ва! + IAR т, Au Q uu «= 
ts OVNI И ж {без |! © + Ор + СЕЛО | £g ӨЗІН 
ЕР | № = СМ ое ғ | О «еп ! Du t3 64 ц + {| Ж ЧО | 4 EH eoero poe o 

1 0405 Сален | pa 23 + Он l Z AMAU AHO + tA | c са ә о 
вн оф D (а Huw + 122 ноа O AU “одыг + | ВОс С с 53 22 03 (ра 02 (4 
ИСО HE A O ee «ГӘ + | клы ес H * „ +; + баныыазасар Е Јејејфјеје 
"ЕО БС ІН > о Жж сатты! © = (е (З ЕЧ + суох м zmaooaoo 
са 4 со о 1 O О О Y ПЗОоЗНОВНЕ O кор» е # СрО фр O HQAQA0ZA0 .. 
I е О с Oda + ! ' т” м соғыса + | ' О (бељемља Ооо 
хх мм т # чи D amm = $ HHHHHHH м г > 
м Ч и ви Чц? tu >» m и X DS A wu “Мани? “Чар eg в. = со fx] w =) Ди [ar n3 pel 





(HA AAA A A dk kk k RAR RA A A AA КК Кж жж) 





қ ақы «к» ақы ақы ақ ч «қы Р р ЧЫР ч ч ч UND ЕР «не «иә «қа eee ча =x 


3HHRA-=TO 1 
NNNZr Es fu 1 


Jt 3€ 3€ 3t 3€ 3€ 3€ 3 





LINZPTR); 


ЕР 


PROCEDURE SETLINE (VAR LPCUR, 


>: BASLINENG; 


INUMBER 


VAR 


GETNEWHDR (LNUMBER) ; 
ANDR (LPCUR, LP) 


Е 


ZR) 


GETNEWHDE (LNUMB 
EWHDR (LPCUR, LP) 


.. 


ND 


E 


• 
% 


(XS UILDTNSSE 


(FRE RAR AA RAR A A He HH AH He He EK He A Ж ХХХ ХХ ЖЖЖ ЖЖ жж) 


136 





cx 


LPCURO. LINO THEN 

LPCUko. LPTR; 

есче: 

RAILG.LINO « IINUM) AND (LPLEZAD <> NIL) DO 
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ж * 
Е FUNCTION CALL ROUTINES 4 
ОГ 2.................«-»-<.<) 
(%-40-% 

EROCEDURE PZXPR; FORWAnD; 
soc EDU Mm BEREMARY; FORWARD; 


БЕРЕКЕГЕ ES 


%-26----------------------------------------------------- 
ж GENENG GENERAIES TEE CODE FOR SHORT, SIMPLE CALCULATCR * 
+ ABITHEETIC FÜNCTICNS ("QUICK" FUNCTIONS) . x 
PROCELURE GENFNQ (OPND : SLOTPTR); 
VAR ПИ 1..F NOLEN: 
BEGIN 
SCAN SICK NUM) ; 
IF TOKNOM <> OPARENICK THEN (ж '(' ox) 
РЕВЕСЕ 
ELSE 
BEGIN 
SCAN (TOKNUM); 
РЕХЕВ: 
| = 1; 
WITH CEND@ DO 
REPEAT 
GENKEY | (FNC(-1.)) 
UNTIL (I >= "wor: N) OR (FNQ(.I.) - K_NOP) 


END; (ж GENFNQ x) 


А О АЕ ЗА РОА АЕ О ЗА А ЗА С ЖЕЖ ЖЖЖ жж) 


ж-27----------------------------------------------------- x 
| ПИ Ро SEARCHES THE FNL USE LIST TO DETERMINE if т 
ЖЕГЕ Кїї HAS EVER EZEN CALLED BZFORE; ТЕ NOT, THEN ІТ = 
(x Moe Er ADDED TO TRE USE LIST. и 


ENCFDLURE CHKFNLLIST (VAR IDSLOT : SLOTPTR); 


VAR LISTPIR, HCLDPTBR : SLOTPTR; 
USED : BOOIEAN; 
BEGIN 
LISTPTR :- PNLLIST; ү GET THE LONG FN LIST “| 
IF LISTET <> NIL THEN * TRAVERSE THE FNLLIST * 
IL 
USED := (IDSLOTA.IDENT = LISTPTRO.IDENT); 
LISTPIR := LISTETRO.FNLLINK: 
UNTIL (USED) OR (LISTPTR = NIL); 
IF LISTPTR = NIL THEN (* IF NOT FOUND ON LIST, THEN +) 
BEGIN i ADD THIS LONG FUNCTION TO THE FNLLIST * 
HOLDPTR :s FNLLIIST; 
FNLLIST := IDSICT; 
. ID81013. PNLLINK := HOLDPTR 
END; (* CHKFNLLIST ж) 


ЏЕКИ ЖИВИ ЖИЛ АН ii KK | 
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БЕРЕКЕ ТУ а 


(5 * 
Е FOUC ICNSDEFINITION- ROUTINES 2 
ЖЖ аж ЖЖ ЖЖ ЖЖ жж Жжжж ж жж жж жжҗж ж жж жжж ж ж o ok toic o жж Жж 


EEGIN 
PNSLOT@.FNPLINK := FNSTACK; 
FNSTACK := FNSLOT: 
FNSTACKCT := FNSTACKCT + 
ІР FNSTACKCT > FNSTACKLIM PHEN 
BEGIN 
EWARN: 
WRITE E. "жжжжж SBR STACK OVERFLOW...> %); 
QUERITEIM LISTF, FNSTACKLIM:1, ' RETURN ADDRESSES. !) 


END; (* PUSHEN ж) 


BEEN ET К ЖЕЕ К ЖЕЕ ЖЖ жек жж жож жок oie oen o Xe eoe eoe xot por oko qo жж) 


EESDCTDURE PCPEFN; 
ES НОГГЕТЕ : SLOTPIR; 


BEGIN 
HOLLPTR := FNSTACK; 
ENSTACA :* FNSTACKa.FNPLISNK; 
BOEBETES.ENPLINK := NIL; 
ШОТАСКСТ := FNSTACKCT - 1; 
БЕСЕНСТАСКСТ < 0 ТНЕМ 
ВЕСІМ 
ЕНАЕН; 
WRITE PS АКА Get TO DOP RETURN ADDR *); 
ИТЕН ГЕ "FROM EMPTY STACK...kE527T СТ тс 0”); 
ENSTACKC := 0 
END 
END; (te EOP PN ж) 


EEE FREUE АЖ coke oco ЖЖ КЕ к о oo ЖЖ КЖ OK ok Oe eo oe e 36 ) 
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CO DE 
SER); 
SIPTRA. FNLLINK (* NEXT LONG FN ON LIST ж) 


LISIPTRO 


ВЕРОНЕ СЕТРМІ 5: 





ж 
| DXPIUESISTQNOGENERATOR ROUTINES =) 


ж * 
(Жжж жж жа жж ЖЖЖ ЖЖ К ИЖ ЖЖ ЖЖ 


ne E rsen enm emm mem n) 
ж 


PROCEDURE GENID; 
VAR GENE : SLOTPTR; 


BEGIN 
OPND := IDLOOKUP (ACCUM, ACCINX); 
CASE OEND@.TYP OF 
VARID : BEGIN 
IF OPNDA.REGNO = -314 THEN (* REGNO FOR PI ж) 
GENKEY (К РТ) 
ELSE 
BEGIN 
GENKEY B RCI) 
GENKEY (OPNDO.REGNO) 
END 
END; 
ENOID : GENE NO CEND); 
FNEIC : GENENE (CENnD): 
FNPID : GENFNP (CEND 
END (* CASE %) 
END; (* GENID *) 
О ЗАМАК ЖЖ ЖЖ ЖК ЖЖ ЖИ ЖЖ ЖЖ ЖЖ ЛА ХАДА ЈАКА 
ж-39----------------------------------------------------- ж 
* GENNUM GENERATES 11-59 EQUIVALENT CODE FOR A LITERAL  * 
* NUMERIC (EOTH INTEGER AND REAL) 


PeOCEEURE GENNUM; 
VAR Mm, POECETLOC, ESIGNLOC 2 INTEGER; 


PEGIN 
DECPTLCC := LCCUNT + 1; 
FOR I := 1 ТО LCOUNT DO 
GENKEY (TRANSDIGIT (ACCUM(.I.))); 
IF ECCUNT > 0 THEN 
BEGIN 
GENXEY (K ГЕСРТ); 
FOR I := На OC + n TO пана ос + зсойнт) 20 
Е GENKEY (TRANSLIGIT (ACCUM(.I.))) 
IF ECCUNT » 0 THEN 
БЕСІК 
ESIGNLOC := LCCUNT + 1 + RCOUNT + 2; 
IE ACCUM(.LECPTLOC.) <> PERIOD THEN 
ESIGNLOC := ESIG) 1: 
СЕККЕУ (458); 
TE /ДССІМ (72 ЕСІСКІОС.) = !'-' THEN 
GENKEY (K NEG); 
FOR І 3= (ESIGNLOC + 1) TO Ко + ECOUNT) DO 
A GENKEY (TRANSDIGIT (ACCUM ))) 


END; (* GENNUM *) 


(Ro Pk oe oo oe ХХ eode coe cie A КЖ ode oc oe xe olere ote oic oe tec oec o К К К Ж ЖЖК ж КК) 
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(%-Ц0----------------------------------------------------- + 
(+ БЕРІ FARSES AND GENERATES CODE FOR EXPRESSIONS. : 
ж 


EROCELURE PEXPR; 5 FORWARD DECLARATION WITH | 
жх FUNCTION CALL ROUTINES > 
ЗЕСІМ 
GENKEY SE_OPARZN) ; 
PPRIMAEY; 
WHILE TCKNUM IN BINCETOKS DO 
REGIN 
CASE TCKNUM OF 
ELUSTOK : GENKEY (K_ADDOP); ж + ж) 
MINUSTOK : GENKZY (KCSUBOP); EDU 
MULTCK : GENKEY (K_MULTOP) ; x еже x 
DIVTOK SEGEANEY CK DIVOP); ж нут ж 
ЕХРТОК : GENKEY (KLEOWR) Kk test x 
END; Es CASE ж) 
IF NOT (ТС NUM IN TRAILTOKS) THEN BEGIN 
SCAN (TOKNUM); 
PPRIMARY END 
END: 
GENKEY (K CPAREN) 
END; (* EEXER ж) 


(кжжжжжжж E TA EA ASA ккк жож EI EEE РЫ жак ЕЖ а ЖЖК ж ЖЕЖ Ж 


A - ------ - - -- --- - -- - -- = - - - -- -- - - - - -- -- --- ж 
* PPRIMAFY PARSES AND GENERATES CODE FOR A PRIMARY ITEM ж 
= EXPECTED AS PART CF EXPRESSIONS. 4 
PROCEDURE EERIMARY; (2 FORWARD DECLARATION WITH $ 
ж FUNCTION CALL ROUTINES ж 
BEGIN 
CASE TCKNUM OF 
EIUSTCK : BEGIN (% 4%" ж) 
SCAN (TOK NUM); 
PPRIMARY 
END; 
MINUSTCK : EEGIN (ж 1-1 x) 
SCAN (TOKNUM); 
PPRIMARY 
GEN&EY (K NEG) 
END: 
OPARENTCK : BEGIN (ж t (t 3 
SCAN (TOKNUM); 
ЕДЕН? 
SCAN (TOK NUM) 
END: 
ILENTCK  : FEGIN 
GENID; 
IF (TOKNOM=IDENTOK) OR (TOKNUM=CPARENTOK) 
THEN SCAN (TOKNUM) 
ENDS 
NUMBERTCK : BEGIN 
GENNUM; 
SCAN ( TOK NUM) 


# t 
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END (* CASE 
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%-43----------------------------------------------------- ж 
* PÜSHCCDE PUSHES TEE RCODE DATA NODE ONTO THE ТООР/ТЕ ж 
+ STACK DESIGNATED EY STACK 


ШҮСІШІКЕ FUSHCOTE (KCODE : CODEPTR; VaR STACK : CODEPTR); 


EEGIN 
ERODEQ.SECP :* STACK; 
STACK <= БСОРЕ 
END: (* PUSHCOEE *) 
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к-Ц9----------------------------------------------------- x) 
Meee LCCE POPS AND INSERTS CODE WHICH HAD BEEN STACKED ж 
У TER AS А RESUIT OF THS START OF A LOOP CONSTRUCT. 4 


EROCELURE FENDLOCP; 
МЕБ ОСОРЕ : CODEPTR; 


ВЕСІМ 
IF ICKNUM = ENDLOOFIOK THEN 
GENKEY (K СТО); 
JCODE := FOSCODE (ICOPSTACK); 
PUTKEY (JCCDE); 
GENKEY (72); 5 
JCCLE := РОРСОГЕ (ENDLOOPSTACK) ; 
PUTKEY (JCODE); 
CLOSELINE 
END; (* PENDLOCP *) 
(ижжжжжжжжжжжж жжжж ж кжжжжжж к HM He Ke he Ree 3K he te ee he He TUN TI HN NE EN) 
ж-50----------------------------------------------------- 
* PUNTIL GENERATES CCDE TO EVALUATE A BOOLEAN EXPRESSICN = 
n AND CALLS PENDLOOF TO CLCSE OUT THE L : 
EROCEDURE PHNTIL 
BEGIN 
PCONDITION; 
PENDLOCE 
END; (* PUNTIL *) 
ИЕККЕ de de e AE ER AR RARA RANA AR HEAR ARA AA A A A A AA A Xx AEM ACR ee eX, 
ж-51----------------------------------------------------- ж 
* PNEXT GENERATES CCDE FOR THE NEXT COMMAND. «| 
i THIS BCUIINE IS WEAK IN SYNTAX ERROR CHECKING. ні! 
РВОСЕГОВЕ РМЕХТ; 
MENA TSICT : SLOTPTR; 
JCCEE : CODEPTR; 
BEGIN 
SCAN (ICKNUM) ; 
ISLCT := IDLOOKUP (ACCUM, ACCINX); 
ТР ISLCTD.AUXREG2 = -1 THE 
GENKEY (K 1) 
ELSE 
EEGIN 
GENKEY (к BCL) 
ey SENKEY ISLOTD.AUXREG 2) 
GENKEY (K SUM); 
GENKEY (ISLOTO.REGNC); 
GENKEY (К сто); 
ОБЕ := FOPCODE (FORSTACK); 
PUTKEY (JCODE); 
GENKEY (-2); 
JCODE := FOPCODE (NEXTSTACK) ; 
PUTKEY (200 5); 
CICSELINE 
END; (* PNEXT *) 
(TERRA A A AR A A A cle oo oe o e tex X xol EAN НО AAA A A de dede AAA) 
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ж ж 
: IF-ERANCHING ROUTINES : 
А КЖ ЖЖ А АДЕ ЖЖ жж хх у 
ж-53----------------------------------------------------- ж 
EMOUTTEFRROB IS САГЬЕГ ЧНЕНВУЕВ А QUIT STATEMENT IS + 
ж ENCOUNTERED WHILE NOT WITHIN THE SCOPS OF A LOOP. Ы 
ESOCPLURE QUITERRBOR; 
BEGIN 7 

WRITE (ESTE ao ЛТ ТЕШЕТ ТО PQUIT" WHILE NOT '); 

ЖЕТЕТІН (LISTF, "INSIDE А 1ООР."); 

PERROR 
END; (* QUITERROR *) 


ИЖ ЖЖ ЖК ЕЕК HET KERLE FE FT EFT FF EHER жж жж) 


х-5Ц----------------------------------------------------- ж 
5 PQUIT GENERATES PCTENTIAL ADDRESS SPACE WHOSE JMPP * 
ж POINTS TO THF MOST CURRENT CODE NODE ON THE ENDLOOP ж 
(* STACK; THUS, CONTROL WILL LFAVE THE MOST CURRENTLY * 
* EXECUTING LOOP DURING TI-59 EXECUTION. NOTE THAT THIS * 
* IMELEMENTATION WILL NOT ALLOW LINE# TO FOLLOW 'QUIT' = 
PROCEDURE PCUIT; 
BEGIN 
If ENDLCOFSTACK = NIL THEN 
CUITEBRCR 
ELSE 
ВЕСТИ 
GENKEY (£_ST0) ; 
SETFULIMP (EN ICOPSTACK); 
SCAN (7953 Чи 
ТЕ ТСКММ = МОМЕЕВТОК THEN 
BEGIN 
PSUBERROR; 
ЯРТТЕ ГЕ leek "QUIT" DOSES NOT ACCEPT '); 
„pe RITELN LISTE, "LINE NUMBZRS THIS IMPLEMENT.!); 
E 
ELSE 
CICSELINE 
END 
END; (* PQUIT *) 


{Жжж OR che oko dodo oc oe do 2222 22222222225 


ЦЕ556-5 
ESCRDURE PTHESNLINE; FORWARD; 
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а ж 
| ВОС ГОСАТЕЗ ТЕЕ START OF THE CORRECT MESSAGE IN ж 
( ТН SGFILE * 
Ж--------------------.--..- .--------.-..-..--..--.-.-.--...-- ж) 
EROCEDURE FINDMSG (VAR MSGFILE : TEXT; ee НЕДЕ 


ШЕ > CHAR; 
Ш: INTEGER; 


Але СНА 
INTEGER 


E=MSGF.FASCAL.A'); 
HAR); 


? 


ri COPE SAD GHAR 5 MSG NO *) 


) OR 
| AND (I = MSG_NO)) 
END; (* FINDMSG *) 


MEMO Sauer o OEE РЕЖЕ К ЖЖ ERE KK RE KKK ER RE KAA EEK KEK ES) 


%-84---------------------------------------------------- -* 
(+ ЖИЕНІН WHITES A FULL MESSAGE FROM "SN? TO SN* AS FOUND * 
M ПАМТЕ MSGFILE. E 

-— e <b ab «а» оң» «к. «а» cu > RA BP ab ab <b ab ED «и» ЧЕ» «м» ANB ED “Ен ED ED SBP PSPS SS A A сиз «к. SSS SSS SS Y E > <> > з j 


ЕВОСЕГОВЕ WRITLN; ЕН БЕСІ “ТЕН 1/0 COMMAND ROUTINES У) 
VAR СН, An OCHAR; 


: INTEGER; 
BEGIN 
FINPMSG (MSGFILIE, ESCHAB, MSG NO); 
ВЕРЕАТ 
READ (MSGFILE, CH); 
IF CH=FSCHAR THEN 1% CHECK FOR EMBEDDED ESCAPE CYARS ‘| 
sp READIN (MSGFILE, 1) (* AND DISCARD IF FOUND. * 
WRITE E CE) ; 
IF ECIN (MSGFILE) THEN (ж NEXT LINE *) 
BEGIN 
READIN (MSGPIIE); 
„ТЕ (12115) 
UNTIL (EGE (WS GEIL EY) OR 
(СН = ESCHAR) AND (I = MSG_NO)) 
END; (* WRITIN *) 
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170 








| 


x 
(%--------------------------------------------------------ж) 


ж 
ж 


ИЕ) 


ae ОТНЕ ОРКА 
(2% АН ИО НИЖЕ НИ ДИ НИК жок ж жож жсж жож К К К Ж) 


GISTER/LABEL SUMMARY. 


= 

? 
T 
n 


) 
DELIS 
TEXT), 


АСЕ ОВ TAE 


м 
іш 


М50 NO 


ME 


EROUMOUIIZSC MSGPILE. 
BSCHAR, 


SENT WRITES 


m 


(VAR WEILE, 


(MSSFILE, 


ARII 


MESSAGE 
Х------------------------- --.----------------------------ж 


* WRIT WRITES A ONE-LINE 
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(%-88----------------------------------------------------- &) 
* LINK INTERFACE CREATES THE SCRATCH FILE WHICH PROVIDES * 
| TEE LINKER WITH ALL THE INFORMATION IT MUST HAVE TO x 
& SEGMENT THE TI-59 CODE; ENTRIES IN SCaATCH ARE IN THE + 
MERE cr sus-PILES (MESSAGES) DELIMITED BY "SN", + 
EROCEDURE LINK INTERFACE; 

MODO A ------------------------------- ж 
ж LOGTO IS USED BY IINK INTERFACE TO READ AND WRITE * 
ж FILES TO THE SCRATCH FILE (COPY). : 
( е, e e O A «ж -л» «ж «шә <> «ж-ш» «що н сир ЕЮ Ар ЛӘ ще «ж» «ше «к» «шо «ж, «ж» ЧӘ әл» «0 -л» HAM о << «що A A = <= = <= <= <> == 


EN DURS LCGTO (VAR “FILE, RFILE : TEXT; MSGNO : INTEGER); 
ШИ СП : CHAR; 


BEGIN 
WRITE (WFILE, MSGNO: 1) ; (* WRITE MSG DELIMITER *) 
WHIIE NCT ТОР (AFLLE) DO 

BEGIN 
WHILE NOT EOLN (RFILE) DO 
ВЕСТН (* COPY THE FILE TO SCRATCH *) 
READ (RFILE, CH); 
WRITE (WFILE, CH) 
END; 
WRITELN (WEILE); 
IF NOT EOF (RPIIE) THEN 
у. АЕ (SFILE) 
и е 
WRITELN (REILE, 734, MSGNC: 1) ; (* WRITE MSG DELIMITER *) 
WRITELN (WFILE) 
END; (* LOGTO X) 


(%-------------------------------------------------------- ж) 


REWRITE (SCRATCH, nc D 1-І 
WRITELN (SCRATCH, '$ ы (* NEXT REGISTER = MSG $1 *) 
WRITELN (SCRATCH, ди EG : 1 IS NEXT AVAILABLE REG.'); 
WRITELN (SCRATCH, 441%); өтте 1 (SCRATCH) ; 
WRITELN (SCRATCH на (* TI-59 CODE = MSG $2 ж) 
CODEDUME (SCRATCH, EEGINCE): 
WRITLN (SCRATCH, 85547 7): * END CODE MSG *) 
WRITELN (SCRATCH, '$2');  WRITELN (SCRATCH); 
RESET (WA WER 'NAMEZNAMEP.WBASIC.A'); E REG/NAME MAP 5) 
LOGTO (SCRATCH, NAMEF, 3); ж = MSG $3 * 
IF NCT ?IRSTREAD TEEN (* DATA/READ МАР = MSG $4 X) 

RESET (READE. ‘NAM E=R EADF.ABASIC.A'); 

LCGTG (SCRATCH, READF, 4) 

END 
END: (* LINK_INTERFACE ж) 
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(а # ба à ! ! ! i i + + 6... + + | + 
MHA I | || бо, ‘ese. | c 0m ме 
asa 0 і il • | ! ! arte IR, TL. о nn % 9 9 om, 
Ф охоте сет Y; rÉ і | | ид | | | оо ооо о] < .-—— ® — о 
oe wn een a £2) ! ! ШЕН ! ! тт - == UHO о ем ... 
”- :~ = = = = = ғ T$ FA UT i 1 i> ! ! 05 11 YA ON bie Ex On MO 
et OG en emen et e en | | | Га | | | - == = -~ o > F] oe Сус, e ОЕ: 
н о0о э ео о ot HH | | NON н | ее о о оф о HHOO — EAS 
(о кб ју О О ~ У | ! т. | | ! . МЕМ JANKO e N 
tH «““едее ығ ! ! (ҥч! н ! - - кй е Таа учы ет з МИШ „Кар 
Uy Ap oodoocdu | | ! I ! ! ә Қ ше. +++++ гора ZH 
eiua Из ИЈИ) 9) 0) ки кг , i 1 рч | | | = = .. AMHR | Но 
OO ef ati et ett em A ! ! т | | A ы 1. un zum Өү өз) e е =: ~ 
уус Са Оз (О, TE TE ! | | (05 | | ! ~~ U o > 9 o o ow H ө q. ero è 
1017 е % © © © э ө ! 1 1 (5 { ! | Fie ee we &= #99. ~~~ — + 
Pra 4 Fra Exa pra Fra Pra Pra F4 | A jay | е! t+ HIA IISA" ~+ + + ө 
O езза овен ceo MOM | ! 10 1! . (2 = = = е = е + + + С + ил 
NOEMI Бан о pl! 104 | EII о в о о 
еее ж 101 бо! (mt - - - FED . б сө 4% еч 
60 2 са О ГО С | Пс vo 1 со! 1 Е 1 ! ! ст + +++ ++ + ем ОХЕ. 6 
кп тт то то гг га Fa NON | і 1 05 1 = = ~ ~ РО ВОН О (О 0 0) 
2122222155 TN ! ! ШЫН ғы! оо ofl ө ө э ө ө Om INEM Of UW) 
"от со ст 0 0 «007 0 (7 5:09 іш! => | tO} e ^ = [= ъ = = = = = Оно = <2 83 О 632 
м м "o | са | па он МА + И Ме ЕЦ ОН | Hi 
п] = = = = ер е >) әт! HI co олор отоор гч | .. ' са | = = - Ед» ы = = ы - = О ои 833 ~ 52 Са .. 
©) ~ ~ Ш | (4 | П] о го с со ет] [1] [7] 24 107 1 ец (<x 4 eee 9 9 9 9 9 9 ө ө ө 9 9 9996906 
Kei a ee se ff =] ee 14! uiblpg 23 63 п ИЛ И NON г, іс”! |] S MÀ ÀÁM a Sol "e, 
GP. да Пара Бара БАР бара 101 мосы mt A 101 м 
ЕО ма ЗОО ЕА ГАр | 1 «0206404037 ек6 | ! m | ы 00 "Hon wow ти" т" и 
> H (ба 05 64 2 27 21 5 И 24 2 | ЕУ | [4 E4 £4 £A EA Fa Fa Er iu 104 | ПЕЧ | ee c9 9? ее *9 o9 ее ..2....» ee .. 
ОУ НЫС ex Et! | г.) E ГІЛ! оч m 
SIE LS IOZ IHI Wwe ww! tg ІН! Qa IHI мо м Ay 
шы ж {с О 63 6 —` чи | i f 99 990 00 99 00 09 09 9. 992 ! | = | 1! Uu A ма SZ ~ Uj} >s 
E rl са | <= | | “= | | “5 | п > сч. Оо O UO м 
E4 EA 22 7 27 114 1 N ачаа (407 Ін! = ІН! са Фо шт MURA t H O | 
а ГЕ 1 шоттан 1 Еч 1 па 1&1 51 323 U0 F3 HH HA QQ м ғ? 
€ E ix UD Brie px 3 03 cep! E ІН! МО (и 22 СО 2 202 О + +1 a ІН! Е 0 03 () HHHO о м ZH 
0392 97. 02 0) 0) И) У Е DE HA FH HH tet енна аак EZ ec га | E4 OMUD DA! сас 4 X: 000 
727 рте; {Н HOUMMOMNOO IHI O ін! м Ной раса MD кара 
Еч са Са T ПЕГЕ ! ! СО О О ОСЗЈЕЗЕЧ ! | rt ! і яз AXXUAaUu пое м ж nm 
H HA 3t 3€ 3* +++ + 
ми чат —-— nr 
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mean чь аң» «кз «нә «ЖЫ» «нә «Б» «ыр «ші» «ЖЫ» «Жы» A a O чы «Ж» «кр «ЖЫ» «к. «к «и» ңқ» чыр ғыр чыр шыр ЧЕ» «к. «нә «а» ыз «ыр чи» «ыр и» “и «ыр «ыр «к» «Ср «кз «и» «и» «ыр ыз «ыр «ыр «ат» «ти» чии» ӘР «ии» == 





Жо= === = <= = => = = что «що <> <= <> = = = = Чы ‚нз «то A «то» «то NN ју MM AM ју х" A a р чы» шыр Чт» A уху «ян» «ыр «ср «но» те к х х D D OD “7 “ «əр 


«то «и» «Ж» «и» «Қы» O A «9» «тн» «#9» «тъ» =з «фр с Ра РБ ЊЕ ЊЕ а ЊЕ ЊЕ ee 


UM, ACCINX); 
(* SPECIAL REGNO FOR 'PI' 


діні” 


A A A A AA A A A A > 
| Mer reALIZE LABEL STACK (ARRAY OF INTEGER KEY CODES). 


REALIN (LAEELF); (* SKIP HEAD LINE 
FOR I :- 1 TO LBLBASE DO 

READ (LABELF, CLAE£EL(.I.)); 
WCT := 1: 


ee ee a eS a a a a a A <= 
| ФИ ТАТЕ?Е RESERVEL REGISTER SEI. 


REALLN З ОД, RWALEN(LABELEI SER SEDEN (CINMDELET): 
RESERVECT := 0; 
RESEFVE REG := (..); (СОТО ТТА TO EMPTY SET 
WHILE NT EOF Е DO 
BEGIN 
МЕТЕ NOL EOLN (LABELF) DO 
BEGIN 
READ ок; а 
ESE RVD t= RESERVE REG + (.I.); N идеен Бер 
ЕТ «= RESERVECT + 1 PRZECHNT MEMBERS 
REALLN (LABELF) 
END; 
ПИ –-__ _ _______-_-___-___ _______-__-_-_-_- ---"-.-—===<=== <= 


Ж = о -= = = = = = —<=<== = = == <> <= == = <= == <= => == -— «и» «и. ср «ыз чи» мм х х х" х" х" у" хк" ју), у" г Oe ed 
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| 


ж 


CALL TO SCAN. 


т 
і 
х--------- За чи» ча» “и. «а» <я» O AA TO A A азар AED ңыз D еш» > o am 4 


> 


ПЦ 111 1411 ДЕ FIRS 


| 


.“.Т) • 

MGH 

ү Кар, 

LOH 

‚д>. .. 

fx] 

ай В 

нию + 

... 2% е еее ео 1! coerce 
__аосовооо 


• оти ппрпинни 
СС) е зове се об фо ое ов Фо 
9. e 

Ма" = t+ 

Et S4 EH S | >> > 
о о Ока О О во 
шга ЧО 2 09 р 2222 
ANS A ба Са кб AHH 
HHOZ (TH: 
HAKNA R Œ kA AOL 





= 


HDEIDAIASSISÜUGPUSECFOR TrT-59 CODE. 


oo... ж» «к» чор A чш чыр ча» «#» «к что че» «и» «а» A A «4» D ч 4. «вр «то» «но» ЊЕ A A чы» чш» чыр um с> <= <= <= — ow <= > = У 
Ж = = ao =e Ty TE A ЊЕ ЊЕ ЊЕ A A A а ЊЕ ЊЕ ЊЕ ЊЕ A ЊЕ че AAA «99 ЊЕ «ре A A > um um == 


ЕИҮШПТТТАТТ?Е LINK 


| 


++ к жи 
ГӘН El «xg 
MH 4 са 
Q m Ао 
=O < Me 
ES H A 
Fry са 
fu) пз ИР 
mm са а 
Es > hle 
2 A NM ml 
O DIS 
eim OA 
zB о Fr 
Ox m Ox 
(Ова m OH 
«т са 
«6 53 = fuu) 
A п 
[43 ка ie 
61,3 HM 
өзе єт! ъз 
mi FIM 
% 05 О 
72) га "ж 
= nt 
О Си 
es = 
cms L 
=> Еч 
ох hr] 
u • U) .. 
H са а, 
> E % Ol 
~ г ~ fx] 
О п 
са 9 • 
FQ ee ergy (3 


FH HHBZZEXxDAmta 
срео E 


IT кап 
06 99 9 9998 и ee 


Ay pe n Qu 
A Q1 О сос) 
E4 £5 100 75 04 HE e 27 
U) D EA Q нә Ас н 
РОНА О Он 22 UO 
|-4 Са <0 27 63 Си 363 63 03 
(бир Ра Со О о 


| 


Ж 


xa = -b =p «ФФ ay — «ФФ A A «Е «#» что «9» «0 чч O A «с» ян > ча eee Se чш ч) ч» ч D P A = = съ со oa oma za «9 <>» u a m a a a an a X 
(%--------------------------------------------------------х 


INT TIALIZE LOCP/BRANCH STACKS. 


| 


офор о 00 oe 
ној] 
HHHHHH 
= 


ЭО ОРА 
HEM 


| 


x 


1405. 


T 
a 


Аи 


NT 


M 


ENINITIALIZE READ/DATIA STAT 


| 


Ka ——————À — —— — —À —À — — — — ———— — —— -- -- - ———— — ——————————————————— X 


рес 4 
MAH Fr 


(UN ЕД ТАЕ =) 


END: 
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жат. ЖУ. о и 
3t 3t 36 3t 3€ 
зе + 
X + 
tt % 
+ + 
је + 
% % 
+ + 
+ + 
+ 3t 
+ 3t 
+ + 
+ + 
+ + 
+ % 
+ + 
+ + 
3t + 
+ ж 
% + 
+ са + 
3t га + 
зе > + 
+ H + 
* а ж 
+ N + 
% % 
+ = № 
ж ҥн ч 
+ же + 
+ Y 5 
+ + 
+ + 
3t ee + 
о + 
# N ¥ 
+ >< + 
+ = + 
ж uy 3t 
+ + 
+ + 
+ + 
+ + 
+ + 
% + 
+ + 
it * 
+ jt 
ж 3t 
3t 3t 
3t 3t 
+ + 
% + 
+ + 
3t + 
+ + 
+ + 
+ 3€ 3€ 3€ 3 
ћи ee 


ENDFILTOK *) 


(* EAX59 MAIN *) 
INITIALIZE; 
(* UNTIL TCKNUM 


ШЕРЕАТ 


ВЕСІМ 


ЗОО с 
ГР О > er 
=ош fu 
es a fa 
HH MH 


OHH 
ха WMA 
37 
Fat) ert Of 
WH E+ re > 
04 ef ні 
HO uz UN 
HA ma 
ME =D 
ann С) 
etta o + и 
О вођа 

пар. 


RISKS MUST 
COMMAND 

OF IMPLEMENTATION 
ERROR 


Е 
А 


ЕСЕДІ 


| 





USED ES 


) 


NEED IN 


NESHT сит COLUMN BY дет 
IN 


BARSZ ERROR IF 


LIN 
D 


„Өтер ч у Р р е е р че тыт т Р т е Ө ч „е е р е = == 


4€ 3€ 4€ 3€ d£ 3€ 3€ 3€ 3€ d£ 3€ 3€ 4$ d£ 3€ 3E 3€ 3€ AAA AS 


+ + 
ж + + + 
++ + fu AO EA а па Са ЕН 
* 3d РО РЕ чае HZDDHHNZ 

ч © РЕ: гач О Езра ObluD EMI H 
ба О 75221210 227904 51-0 О ЕЯ ЕА РО 0 а 
НЕ О О на ва СаСО 41-472 Сви Сара MOHD 


x KK 


34€ 3€ 3€ 3€ 3€ 3£ 3€ 3€ 3€ 3€ 3€ 4€ 3€ 3€ 3€ 3€ d£ 3€ 3€ 3€ 3€ € d£ 3€ d£ 3€ 4€ 3E d£ 3€ 3€ H 
ura au ña may a tl Ao” "tl rat” ши un Ч al A” "gt" og ga ll "rg gg oil a A ^ 


.. e > .. e 

па га са Са са 

O O O O О 

са m m 844 ná 

04 ш fu па 03 

fr} в г fr} fry 

са m га m m 

= о © > > 

п N WY п п 

pa Di. (ба г с 
eo^ Ф > че ee ооо оро орь ороор 
am X ра па '9оо о осе со сео э» э» (74 Fra CA nm £43 E 
ОО mem se: O OD OMORHEIUTAO HZTDTIHHANZ 
eA HEGALA mM ӘЛЕН ОБО Ера ОРА: Нон 

05045 MAZA (4 офаоООРИӘН «4 ГӘаса РУВО Рут Ш «а 00 

не Сз AMA ащ 42 О Сида па Mb HO IRE бп 

Оча Mp р О Оби ба Су (Су О С UNU СЕ С о» 


m 


се се ее о9 99 ә оф оо 99 $ Фо со зе со Со осо оо 00 оо во 0000 о0о оо 0.0 00 00 s etf) 


OK REM 
44,845 
7 


(Y) 
Es © % ”- 


сгсоссчоваипогососттзожюг TOT NNMOM-O NO (INM 3 
ec CICN CIC O CILCN CIL CM CN 00 (7 em 0n en en n m vn 3 F FI 29 29 F F NNNNA) 


181 





EN стен, лғ, ло 


jt M 3t 30 30 3* 

2.14 
ни" Om 
Imo OO 


I DH Es 
WEE! AM 


ANA 5261 
Mao Kim 
Jt 3€ 3€ 4t dt 3€ 


3t 


+ 


onn а "ои ка a 


БМӘШЕЕКЕКОЗ- 


. 
% 


PSUBERROR 


и? N 





3t 3t 3€ 3€ 


= fx) 
UNH 
HH H 
PIGS ры 
a 
aan 
LE 
1“ 23 06 03 


3t 3t 3t + 


** 09 ec 99 
за ма ьа 
OOO 

"© A EE 

Ом 3 

HHH 


(* CASE *) 


END 


END 
UNTIL ICKNUM 


ENDEILTOK; 


CCDE la ( 
NEWHDR (MAXBASL 


NEW 
GET 


FOR SERT 
E 


48515 
А 
О 
5 


сас Б 
N WNP 
EAZ [ES HSC 
оО 55 О 14 
F3 S HS M e 
ЕЕ Е 83 
=, a Oy As Qa > 
Hoodoo 


3t 3* 4€ 3€ 26 
agas ne gee eet 


CP SERROR7 REG/LEL SUMMARY **) 
N 
К 
Е 


Dos | 


t1 E OE SX 
eaca O O HZ 
QQO (Q O CH 
fulu O +4 
1р, ра 
MAH H 


| 


ж 
ж 
x 

-------------------------------ж) 


СИ НЕВЕ 
5 


АСН ВОСК 


МАМЕ FILE. 


т 


CUNPS DACH SLOT EIER 
ЕЛЕК ШЕ 


STIIBORbOTABPSETOS 


* 
е 


eK CUTE THEN 
(= ПТВІШОЯР (LISTE, 


| 


Ж о о-н l m m X m X X X X i i l l X m i X ld È 
Ir 


* DEEUGGING TOOL 


(* 


| 


| 


ж 
= 
ж 


NTIRE CODE DATA STRUCTURE 
NG LINE AND CODE NODES. 
(* OPTION 6 


5 
0 


PUNES БЕ 
INCLUDI 
puSSTDE) 


7 


E 


(LIST 
En a a zo a ———————— 


THEN 


CSDUMP 
PEARCE 


T 
ә 


х-н н l l X X l X X m l X X X i m m l i i m ii lm 
T 


ENDEEUGCING TOOL: 


* 


(% ЕАХ59 ж) 
XX cie ce coe o RI ol ce oe o ox oo o eoe o ooo ХЕХЖХХХХХХХХХХХХ ХХХ ЖЖК ЖЖ 


• 
? 


END 


жжжжжжжфжфж Жжжж жожжжжжжжж Жжжж жжжжжжжжжжжжжжжкжж Жжжж жк жоок жж +* 


| 
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RWTBLF FILE--ORDERED RESERVED WORDS 


р. 

ба (2 00 2 AR 6] 23 2 EA EA UN Au HA 

mV! O а «8 Са (Бе SEI HH OTOH HW BHI и У) 22153 

баж к (СЛ + 5 а ЕЧ Гр ә Еч А СО Еп РО РА Да СЕЈИОЈ Са БАБА ОНЧ О ди 0 

жен ци OMZ орам ОНЫ шо) H O O MO ы Са САУ AAA AA 

= -- ЛУ м» ЕЗ МА мМ О Асран ез гука 53 Ян (СО 2 СЖ СЗО O UH (9 CD 4 22 Ба и О) 5 (0) 0) 9) 64 


счету ог со Ол OTN TJU OPADA Or NMI NONON Or NMF NOMON OT NMF ONMO T NMI NOMO 
сет ст тест е = сысы СИ СМС СО СО СС? n 00 00 00m 0m + пт а ум сто ааа ты ыы тығыла 
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р] 
NN 

(uE EAN A 

zi rn EAE B3 E386 Q 05 O ei FO n 
MOD>EHUOOFODO 
DHU о Ови eura 
ЕНЕЧ 2 за 25 HIOU m OO 
ынаны а 2 к «с 
(3 OQ I IS 22 64 ea U) c1 (а 


QO e7 C0n) Zr uxo r- COOY Co e7 CN 
МО Мо МО мо Момо МУ МО МО МО ~ ~ ~ 
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LABELF FILE--TI-59 IABELS/RESERVID REGISTERS 


Ж ИЕ ССПФЕС ЕСЕ TI-59 LABELS; 


ос го ‘ог 
eM) =< I ON 


NOMMAWO 
-IINDON 


ONANI OAN 
чуч мо ос 


rom Ds 
е ЧОО сос 


МОС ЧО СКО ОхСЗ 
= с\}сту 7\2 Г Оз 


ЧГУ ОШ ОО m 
e 0Nnumxor- o 


зтззюогсе“его 
TINO SOL” OV 


MMN LV 
NMI on 


NN3PFPDINDO 
е СЧС FUE DOO 


c7 C3001n00900 et o0 
c7 000 zrur- 00 


8 
08 69 10 


ПИТАО RESERVED BY USE 
00 01 02 03 04 05 96 07 


КЕ 
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APPENDIX F 
BIFNQOQF/BIFNLF FILES--B3UILT-IN FUNCTIONS 


DAD EN "QUICK" FUNCTION NAMES AND TI-59 KEY CODES: 
ABS 50 68 68 68 
05 27 39 68 68 
ASIN 27 38 68 68 
АТМ ШІ! 30 68 68 
BOS ШЕ 68 68 68 
GOT ЕШ! 35 68 68 
ESC ШЕР 35 68 68 
ЕХР 4/23 68 68 
EP ЕЙ 29 08 68 
Ep ee 68 68 68 
106 ШІ 68 68 68 
10610 28 68 68 68 
8 35 68 
3963 68 
34 68 68 
30 68 68 


oo iN "LCNG' FUNCTICN NAMES AND TI-59 KEY CODE SEQUENCES: 
RND EOS 10 43 10 36 15 15 36 15 71 88 68 68 68 
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KEYCODE TRANSLATIONS 


SAESTESELLES=T 1-59 


ШЕТ... 


ши 29 KEY CCDE 


нə га з ша л га e 
HA 4) in € ыз ы өз 
4 Es 19 O 4 #3 га 
nn ы 14 O 9 we tq 
v v y Fa wu A uf 
oat 

e па оса C5 аз сс сз 
ar O о > о о © 
eo mi mi ні 04 mi ná 
О m са t» m 0; 05 
сао fr yr C) fr] E fr] 
ра > 

> A ғ” (e m са A 49 ч 
= me Фа > (9 тура АЗИС BNUA Y 
а - = = = = да е О суд Са x Әз НОР sam 9 
изен ы кап Оса (оо маа Еч а А MANDAN Ошо 63 
мН ANA >< 

(apa a AONA сива саз И % 0а РА а Са ныі В Иса сагата 
е. г A Aw таа ға ж ич Mw Em ғал туса У Е СМ “527 А ОА (ОТО ZA AGUJA 


DDow Sn е ea Q C B30I C9 CI CV CILONL HL 1 О ONN NNN H K AKN A| NN NN N UN NT NH HN NN =N H 
QOQOQO QOCXO COO OO OO OO OO QOCOQOO OOO OO OO OQOO OO OOQOO cO OOCOQO c ** c OQOQO rr vC OC«CCO 


сч c7 C400 zr o ~ собу е СЧС zr Uo - 00 0 CO 7 C 0) zr Uo t- 00 0 OO т СЧС с Ш) «ОГУ СОСО c7 COD zr (Xo - 000v C5 NN + 
ıIIOOOOODOOOOr TA c c - 0c c AA A О МЗСЕООСОС С С Слео СП Сп СО СО СО СО СО ene zr zT zr zT 7 2 222 z p 7 ЮНОН 
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Г э а aca 


NON 
Ма: 
^tmMEO SUN 
пзе ч (9 Mp 
eel рађа Сиси 


со үг зг сг (O3 c3 
р ж е 


ana 
о 
HHH 


EXCITET 
"^к. 
CN CX CN 


= је је тета стејт + 
e ww (24 БЕО О 
NA CIONONON ONNAN FE ЄЧ СМЧ ЄЧ UN) И у па ои) I NNN N MARON ON CUNNING HH | ССС С 


t€ 
ta 
1% 
tn 
ғ) 
1! Q 
=: Су > 
о O H 
H ос 
E4 “т С) 
s FARIA 
S OAOA H N 
AYE м OR 
NAD са стр, 
1 >< 071 CD NO 
ет ta 


„лз | НЗ ЕУ 


соо 
AAJN Е 
NHOH о 


гаса суга са (7 2> ! 
А я N 


6e 
ЕН 
HINS fH 
“GNA 
r N ee hy 


QA MAMA 
e P а 


COCOCOCO QOO QONt7 e €" OO CIO c ONT Ke c6 Oc OOo Coco Сре 09 ~ (О ОО СО СО ОС Оса 2 О 


Измо ~ СО СО е СЧ m zriunOt- 000 QD e CI 9 zt uxo r- ANN TINO RA 00 O ec CI zr uoc 0 0s 
мачу O10 OW O DOW ES FE PH FEE EEE EP 00 00 о> с СОСО Q0 00 0000 D DN OO YO OO OO ON 
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MSGF FILE--CROSS-COEPILER OUTPUT MESSAGES 


PIDE 


OSG DELIMITER) FOR THIS MESSAGE 


То НЕ ESCAPE CHAR 


$$225$2522325525$5$51125$552525$$25$555555532555 


$1 


COMPILER FOR TI-59 -PC 
это т.д 


R 


nal 


INVOKING 


|| || 
|| | 
| | 
| И 
M || 
1 || 
|| | 
|| | 
T | 
|| | 
|| | 
И | 
|| | 
| | 
| || 
|| | 
|| || 
|| || 
1 || 
non 
| ~ || 
Wt if 
wei 
Нео И 
ПЕНИ 
|“ | 
|| | 
ИИ 
| <= | 
пози 
по Ml 
"ot 
10511 
по: ti 
|| | 
код! 
H HA 
num 
| “с || 
u ea hH 
ИИ 
|| || 
| И 
| | 
| | 
| 

и | 
" || 
n || 
ti || 
M Н 
u || 
|| И 
и || 
|| | 
|| || 
| | 
|| || 
" И 


И | 
|| И 
|| | 
|| || 
i i 
|| | 
И || 
| | 
I | 
| 1 
И || 
| || 
| || 
|| || 
| || 
|| || 
| | 
| | 
И || 
И | 
| | 
|| 5 || 
И оз 1 
ИН 
ИИ 
И 53 11 
И >И 
П 0 11 
|| | 
42 11 
пон 
n Hn I 
пе | 
НИ < || 
ии 
IH tI 
па 
|| >: || 
поп 
ион 
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oni ПЕВЕЦ Е О ОТЕТЬЕ Тех; СОрЕ55 ІНТЕСЕЗ); 


EGIN 
METTELN (OUTELLF,TILBL(.CODESS.)): 
ND; (* WRITELEL * 


Ж === == = = Gap TU A ЕР ЊЕ > «а» «ат» «а «и» «а» «чт» A A TU A A а» A «то» «ат A «ы» «ж» D чш} A A A «ар» «ат «м» «а Y AA «а 


PRCCEDUR: ARTE CODES Уа OULBPILE: TEXT; CUR:CODEFTR); 


GIN 
WRITE LEADZERO (OUTFILE, CUR@. AADDR, 3); 
WRITETOUTEILE, ' 
WRITE LEALZERO(OUTFIL E CURD. KEY , 2) ; 
WRITETOUTFILE,! ЈЕ 

END; (* WRITECODES 


рн штабы OTE E UA SO DE? ER) 
EG 
NES ALE ADZERO (OU TFILE,CURO.KEY, 2): 


END: (* WRITENUM 
(*------ к 
ay 2---2-2--,-22---.-----.-.-.---..--. 
* HANLLE_#STEES: ERINTS OUT DIFFERENT CASES OF CODES, 
ж EG. "WHETHER CNE OR TWO STEP INSTRUCTION. 

* USED FOR CODEPIR TYPE OF NODES. 
FROCEDURE HANDLE_OSTEP (VAR OUTPILE: TEXT; 
VAR CUR:CODEPTR); 
БЕСІМ 
WRITE (OUTFILE,' '); 
RRITZCODES (CUTPILE,CUR): 
WRITE (OUTFILF, '); 
WRITELBL(OUTFILE, CURQ.K=Y) ; 
END; 
EROCEDURE HANDLE 1STEP (VAB OUTFILE:TEXT; 
VAR CUR:CODEPTR): 
BEGIN 
CUR:=CURO. PIE 
WRITE (QUTETI ' '); 
WRITE ONES (CUÍPILE CUR ; 
WRITE (OUTS LE,! ; 
WRITE OM (OUTFILE,CUR) ; 
WRITELN (OUTFILE) 
END: (ж HANDIE_ISTEP *) 
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ENL: 
EROCEDURE HANDLE 3ST 
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(IHN DEE THSTED Ха 


НЕЗ ОРН oO CODE FOR 


CO DEER: 


O e Oe 0 et 
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ILTCODE: 
“Б <> NIT DO 


e 
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END 
—==5=-==-=-=------55---------------- 
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ж------------------------------------------------------ж) 
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(* PRINT CODELIST ж) 
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E E н 
>= U) >= UN) Ра Ш) 
рде черно 
M P M | 
ей eb ef] 
0940656403 4 
VATKAA 
Denen 


A INIL TH 
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=CUR@.SEQ; 
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не fry Fs 0 
рожа шон H H ADM 


Ca 
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IC 
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END: 


END: 
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OCEDUEE FIND MSG (VAR MESSAGEFILZ:TEXT; MSG: INTEGER); 

VÀR CA:CHAR; DIGIT:INTEGER; 

BEGIN 

RESET (MESSAGEFILE); 
DIGIT:=-1: 
ВЕРЕАТ 
READ (MES SAGEFILE, ‚С1); 
IF Cc? = '$* THEN 
EB o 
READLN (MESSAGEFI E) 
UNTIL ((C1zs'$') AND ЕТ GIT=MSG)); 

END: (* FIND MSG | 
(x == 2 2 22 222 oe -- ---- -- -- а= чер 2 220 so zoo zo oo zo 2 oz za zo mo ao mon a nen ж 
o ono a a 2 nn 222222 22... 2 on ж 
ж INIT SETS: INITIALIZES IMPCRTANT DATA SUCH AS KEY-  * 
* ССТЕ LABEL ARRAY, STEP SETS, KEY VARIABLES AND * 
* INTIALIZES THE SCRATCH FILE 4 
EEESEDUSS INIT SETS(YVAR TPMPFILE:TEXT; YAR STEP O,STEP 1, 

STEP 2,STED 3TINSTR SET; 
VAR GOOD SEGUENT:BOCLEAN: VAR MESSAGEFILE: TEXT: 
VAR TILBI:TYPELABELS: VAR SBRINVNEST: INTEGER); 
VAR C:CHAR: 
DIGIT,J,1,K,I:INTEGER: 
ЕЕ SPI a aaa x 
Ж СЕТ REGCOUNT: GOES TO SCRATCH FILE AND FINDS THE  * 
+ MESSAGE NUMEER CONTAINING THE REGISTER COUNT + 
FROCEDURE GET_REGCOUNT(VAR REGCOUNT: INTEGER); 
| 
FINE 1SG (SCRATCH,RGCT) ; 
REALIN (SCRATCH,REGCOUNT) ; 
„END; (* GET REGCOUNT 4 
ЕСІН 
SBRINVNEST:=0: (* INITIALIZES THE INVCKE NEST СНЕСК *) 
RESET (MESS AGEF ILE) ; (* INITIALIZE TILABELS ы 
DIGIT:- -1; (* LABELS IN MESSAGEFIIE * 
ВЕРЕАТ 
READ(MESSAGEFILE,C) ; 
ТЕ С = '$' ТНЕМ 
ео 
READLN (MESSAGEFILE) ; 
UNTIL (С = '*$*) AND (DIGIT = ALPHALBL); 
FOR 1:20 TC ALEHALBL DO 
EEGIN 
TE NOT (I 11(.21,26,31,51,46,51,56,82.)) ТНЕМ 
READ (3ESSAGEF ILE, TILBL(.I.)) ; 
tsp. 
ІРІ ='4 THEN 
ВЕСТИ 
R3ADLN (MESSAGEFILE) 
END; ' 
END 
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ELSZ 


LS 
ШЕШІ I) BLANK г; 
END; 
GET_REGCOUNT (REGCOUNT); 
RERRZTELTENBELIEN: (* QBENNING AND MARKING | 
WRITELN(TEMPPIIE,!$9"); (* THE TEMPPILS WITH MSG S « 
REWRITE(OUTFILE); (* INIT OUTPUIFIIZ ж) 
СОСГ SEGMENT:-2 TRUE; 
STEP 3:7 (-87,21.) (* STEP TYPES OF INSTRUCTIONS *) 
STEE- 2:2 (.61,67, 7-4: 
ГЕР 1:= ЖЕ К ТОД 58,62,63,65,69,72, 73,75 
7 e , ”/: 4 
5ТЕР 0:-(.9..95.)-(5ТЕР 3%5ТЕР 2%5Т59 1); 
END; (* INIT SETS 3 
ек -------------------------------------- >. nan — — — — — — —— — 
A a o a ———— — nn — —— o — — — —— —— —  —À + + + - - - -- --- - — — — —— — —— = ж 
& ADVANCE CODEPTR: MOVES ALONG CODE SKIPPING 1, 2, OR 3* 
*  STEF INSTRUCTIONS AND STOPS ON NEXT COMMAND INSTR. = 
* — TREATS 7| AND 76 AS SINGLE STEPS. Я 
PROCEDURE ADVANCE_CCDEPTR (VAR CUR:CODEPTR); 
VAR L:INTEGER; 
BEGIN 
IF CURA.KEY IN STEP 3 THEN 
EEGIN 
FOR L:= 1 TC 4 DO 
IF Euro. sto. <> NIL THEN 
CUR: =CUR®.SEQ 
END 
ELSE 
IF CURD.KEY IN STEP_2 THEN 
BEGIN 
20 des TO О 
IF CURG.SEQ <> NIL THEN 
CUR: =CURO.S ЕО 
END 
ELSE 
IF CUR2.KEY IN STEP_1 THE} 
BEGIN 
ERES To 
IP CURO.SEQ <> NIL THEN 
CUR:=CURO.SE 
EN D 
ELSE 
IF CURO.SEQ <> NIL THEN 
CUR: =CURO. SEQ; 
END; (* END ADVANCE CODZPTR *) 
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po a o A ee ee we ee ee ee ee eee ж 
| ENUNTSGHEATORCOREMOVES FJUMPS CONTAINED IN SEGIBL 1 


ROCETURE PRUNE ИУ Ре: BLPTR: 
UN СЕ ЕНГ EGER) ; 
BEGIN 
WHILE F«»5NIL DO 
ВЕСІМ 
ото 5 =CURTP@.STOP_ADDR THEN 
50. МЕХТ РЈО МР:=ЕФ.МЕХТ РЈОМР; 
o FWD DLE 
r:=Sa.N FJU МР; 
DELETE:=D kt JUNO: 
END 
ELSE 
BEGIN 
Se= S9 NEXT FJUMP; 
№2 = Ра. НЕХТ ЕЈОМР 
E SND; 
ТЕ BLEUS IOSJUUP ADORIOS-CURTTO. STOP, ADLR 
BEGIN 
Br ZEURTPAz FT IDMELIST: 
GURTPO.P JUMPLIST:sFO.NEXT FJUMP; 
DISPOSE(F,FWD JUMP); 
DELETE: =LELETES 1: 
END; 
END: (* PRUNE GREATCR «| 
( а» чь чь е» <= <= <= <-> «ж» a a a <> <> <> <= <> <> <= <> <> <> <= o <= <= <= <= <= <= <> <= <= <> um ew UD m «тр «то == <= <= <= ee oe = 


ж 
Е ВОВЕ 5 Е: KENOVES SAME SER INVORES FROH SEGTBL «| 


ШЕЗСЕРПЕР РЮКПЧНЕ SAMES(VAR F:TBLPTR); 
ВЕЕТ, 55 „БР: ТВЪРТИ; 


G OF 
15$ ВЕК :=Е; 
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хе > 
20213 
5) 
са 0 
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mm tr 
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• соли де) м 
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Нее О WM 
ы NA 
UU nt z V 
в ЛО: == 
IV» ns ИЗ 


ELSE 


BEGIN 
DI=T0. NEXT SER; 
Sr = oO SBR; 
IFP woe, FHEN 

So. FAS EDRN SDS SBR); 
END: 
F:=F0.NEXT_SBR; 
END; 
AS ME (er vO Soa so ER +) 
ВЕСІМ 
DEIETE:=0; 
тс THEN 
Е-ОЈН ТРОЈЕ JUMPLIST: 
NC e а ЕЛІ 
END; 
NORCULTPO.F JUMELISTCPNIL TESN 
БЕСІН 
SecsCURTPS.F JUMPLIST: 
P: =S., NEXT tt JUMP: 
nos. GREATOR(F, си DEES) ele. 
Шамс ОБТР а. ЗВЕЪТЕТ< >НТ1, THEN 
EEGIN 
Be - CURTEOSSERLIST:; 
DRUNE _ SAMES (F) ; 
END; 

END; (* CLEAN * 
(%------------------------------------------------------ 
Ж-------- --ы--- ----- -.- ----- -- ---- === е ш» шь ш ш» чь шь o ----------- ж 
ж LIAGS NEST1SBRBRK: DIAGNCSTIC PRINTOUT IF THZRE IS A 3 

A SER BREAK WITHIN AN ITERATIVE LOOP. NEEDS TO SET ж 
ж . GOCD SEGMENT VARIABLE FALSE E 
ENG URE LIAGS NZSTISSBRBRK(VAR IZMPFILE:TEXT; SEG:ITBLPT3; 
VAR GOOD SEGMENT: BOOLEAN); 
ШЕН 2S ERK BELOW: EOOLEAN; 
ee a ee = ee ж 
+ БЕТОН BREAK: SEARCHES OUT BELOW TO SEE IF A BREAK ы 
(* IS ERESENT 50 01465 NEST! CAN CHECK FOR A EREAK * 
x WITHIN A LOCE «| 
ODIA: BELOW EREAK(SsG: TBLPTR; VÀR IS.EBRK BELOW: 
BOOLEAN) ; 
WA SES, OIBRL:TELPTE 
BEGÍN 
НОТ. 55 ВЕК _ BELOW THEN 
ВЕСТ! 
MS EGO. SERLISTSNIL THEN 
BEGIN 
ӘБЕН 2- 5ЕСОСс SBRLIST:; 
WHILE 5ӨВЕІ<>ЧІІ DO 
BEGIN 
СЕВ SBRLJ. SƏR: 
1F SBRO.TAG=SBRBREAK THEN 
LEPSSDRNCDELOWI-TRUE 
ETSE 
ВЕРОМ er IS BRK BELOW) 
SERL:=SERLƏ.NEXT_ SBR] 
END. 
ZND? 
END; 
ENT (ж BELOW БКЕАК ж) 
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BEGIN 
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DISPCSE(DIS TABLE); 
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HANDLE -SBRINVORZ(CURCP,HDRPTR,CUGTP, 
ВЗТМУОКЕ) ; 
IF IS FWD JMP(CURCP) THEN 
HANDLE FWDJ FSCURCD,HDRPTR, CURTD ЕЕ 
ІР (CURCPO. KEY=76 6) OR -(608Сра.кЕ%-71) THE N 
„„СОВСР: -CU RCPa. 62028. 580 
Bie. ADVANCE CODEPTR(CURC2); 
CURTP:=CURTPA.TABLFLIST 
UNTIL (CURTE = NIL); 
a END: (* PROCESS SBRSEGTBL | 
О ас нон m 
* SET LENGTH: ENSURES LZNGTH IS WITHIN MEMORY LIMIT 
* IF NOT WILL DIVILE THE SEGMENT IN HALF АМ 
ж RESET ALL SBRLISTS AND FJUMPLISTS THEN CONT INUE* 
х NOTE: MAY LEAD TO PROBLEMS IS LIMIT Is 
* ARBITRARIIY SHALI. | 
RCCEDURE SET LENGTH(BUILT CODE:CODEPTA; 
VAR SBRTP:TBLPTR; LIMIT:INTEGEE); 
VAR CURTP:TBLEITR; 
LENGTH,DELETE,L_POSSBR:INTZGER; 


Жж-------------- --- ---------.-...--.--.-.-- ----.-.......--.хж 


( 

SMA U LATE: DETERMINES LENGTH OF A SEGMENT. WILL* 
m Це AD BDDITIONAL STEPS FOR DUPLICATE РОМЕ ем 
(* i 


ROCEDURE uec ren. af 


VAR S,F:TBLETR: 
HDITICNS: INTEGER: 


A 
BEGIN 
BENG@E s—-CURT PQ. STOP ADDR-CURTP@. START ADDK 
FPJUMPCONST-«1; 
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ROCEDURE MARKINVOKED(VAR HEAD MEMODULE:TBLPTR; 
Suus DI ES 
M CEDE LR втрое. Бета. 
ЕЖЕ ВА СТО: = 5850. 5882: 
MEMPTR:=HEAD MEMODULE; 
WHILE SER BRKINCLUDEO. TABLELIST<>NIL DO 
SBR ERRINCLUDE:sSBR  BRKINCLUDEO. ЖАКЕН ТЫТ: 
WHILE EMP TRO .SEGTBLS<>SBR_ BRKINCLUDE LO 
MEMETRS =“ EMPTRO.N 
ee ge ee OE NEEDED: = ЊЕ 


СІМ 
IF (SEGO.INCLUDED = FALSE) THEN 
PROCESS_SEG (BUILT CODE, HEAD MEMODULE,CURMEM, 
SEG,CUDZ, HH,CODE, TT, ADDRÉSSS) ; 
IF CCDE H=NIL THEN 
COLE H:=CODE_ HH; 
IF CCDE T<>NIL TEEN 
CODE T2 .SFQUENTIAL: =CODE_HH; 
SEGO .INCTUDED:=TRUZ; 
CODE_T:=CODE_TT; 
Ip (8589.58 RLISTXONIL) THEN 
SERL:=SEGO.SBRLIST; 
WHILE SBRL<>NIL DO 
BEGIN 
SBR:=SBRLO.SBR; 
CASE SERI-.TAG OP 
$ РЕВВЕАК: 
MARKINVOKED(HEAD MEMODUÜLE,SER); 
TABLE: 
FORM MEMORY (BUILT CODE, 
HEAD-MEMODULE,CURNZM, SBR,CODE H, 
CODE_T,ADERESSS): 
END; (* CASE %) 
SBRL:=SBRLO.NEXT_SBR; 
END; 
ENE. 
ENDS 
END; (* FORM MEMORY +) 
BEGIN 
5ЕСі-СОВМЕМ2.5 ЕСТВІ,5; 
ADDRESSS:=C: CODE H:=NIL; CODE T:=NIL: 
FCRM MEMORY (BUILT CODE,HZAD_ MEMODULE,CURMEM,SEG, 
CODE H,CODE T,ADDRESSS); 
CURMEMD.COLELIST: =CODE_H; 
END; (% ВІ) А MEMORY +) 
N: mu nun m m mn m m www шә чш чш» с» шә шь чыз m чш аш» чь шэ аш» we m 9 °------------------- x 
EGIN 
CURMEM:=HEAD MEMODULE: 
WHILE CURMEMZ>NIL DO 
BEGIN 
BLD A MEMORY (BUILT CODE,HEAD MEMODULE,CURMEYD) ; 
CURMEND. SEGTBLSQA.INCLUDED:=FALSE: 
IF CURMEMa.SEGTBLSO.SBRLIST<>NIL THEN 
RESET INCLUDZD(CURAENO.SEGTBLSO. ECBREISI). 
SU RMEM:TCURMEMO. EXT; 
mu: (* BLD_MEMODULECOTE М 
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ELSE 
BEGIN 
IS SBERBRK:=FALSE: 
WHILE SBRL<>NIL DO 
BEGIN 
SBR:=SERLA.SER: 
IF SBRO.TAG = SBRBREAK THEN 
BEGIN 
SM:=HEAD MEMODULE; 
SBR:=SBRO.SBRZ: 
WHILE SMO.SEGTBLS<>SBR DO 
Зи: =5Иа.МЕХТ: 
IS SBRERK:=TRUE: 
PRINT SSGLINET (OUTPILE, 
MESSAGEFILE,ASTER); 
WRITELN(OUTFILE,SMO.MEMNUN: 1, 
OO у“ 
ENDE 
ay SBRL:SSBRLO. NEXT_SBR; 
END; 
IF NOT IS_SBRBRK THEN 
m PRINTLN_MSG (OUTFILE, MESSAGEFILE,NCHE) 
PRINTLN NSG (OUIPILZ,MZSSAGZFILE,PMANRTN); 
IP PG.RETURNCODE NEEDED THEN 
ey BRINTLN_MSG (OUTFILE,MESSAGEFILE, YES) 
= 
PRINTLN NSG (OUTFILE NESSAGEFL =, МОМЕ) ; 
PRINILN MSG (O TFILE,MZSSAÀGEFILE,PSEQ); 
IF 51627748 ELIST <> NIL THEN 
Лл RESSAGERILE,, 
NE E 
WRITELN (OUTFILE, P@.NEXTƏ. 
MEMNUM:1,'.000*) 
ЕМГ 
ELSE 
PRINTLN MSG(OUTFILE,MESSAGEFILE, NONE); 
В: =Ра.МЕХТ: 
END: 
WRITELN (CUTPILE) :WRITELN (OUTPILE) j 
PRINTLN MSG (OUT FILE,SCR2ATCH, DATAR=AD) ; 
ARITELNTCUT ILS) :WaTTELN (OUTEILE) ; 
ERINTLN_ MSG (OUT FILE, SCRATCH, REGMAP) ; 
ARITELNTUCUTPILE) :ARLTELN (OUTFILE) ; 
END: (* OUTEUT_MSG2 4 
ЕСІМ 
OUTPUT MSGF1(OUTFILEZ,MESSAGZFILZ,HEAD MEMODULE, 
PART NUM PARTITION); 
OUTPUT SC F2(OUTPILE,MESSAGSPILZ, HEAD_MEMODULS) ; 
WRITELN(OUT? LE); 
ERINTLN MSG(CUTFÍLZ,MESSAGEFILE,ENDLBL); 
к (* OUTPUT GOODSEG :| 
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BEGIN 
NET SEIS(TE M IRE ШНЕК SITELI; oE? 3, 
GOCD SEGME! NT,MESSAGEFILS,TILBL, SBRINVNEST) 7 


PD IMTIT(RESCOUNT,LIMIT,NUMBANKS,ParI_NUM, PARTITION) ; 
ieee GT (SCRATCH, BULIT CODE, BULLT CODE COUNT) ; 
(ИМЕ 5 (80151 СОГ:); 
СИВЕ БЕСГВІ (ВОТІТ CODE, SEGTBL, LIMIT ,BUILT_CODE_COUNT);, 
COALESCE (SEGIBLA.TABLELIST,LIMIT,GOOD Е ray VNEST); 
Meme LN (TEMPFILE, 'S9"*) ; BEZETOSESZTEINPETERTDIAG FILE- 7) 
muse auCiTONsS (ОУ9ТЕТЬЕ, МОЗЗАСЕРТЬЕ, ТЕМРЕТЬЮ 

6065 SEGMENT) 05 TABLELÍST, РАКТ_ NUM, PARTITION, 
ERWBITE(TEMPFILE); (5 SEW moe hone PIPE DIAG FILE =) 

END. 
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COO OO0OOOOOOOOOOOCOCOOOOCOOOOOOOCOCOOOOOOCOOOOCCOOOOcCQOOcCXOOOOOQO]QOOOOOOOCOOOOOOOCOOOOOOOooo 
= = > С) СС) ООСС ДОО О ОДО Ооо о о О мо ч со со со со со Со до до ао O0 Y Y ДЕ] ДАДА] ДА] ДОО ОМА OD ooxUwuunununuwunununun- Ero 
Ка => СУ СО ДОМА СЛОМЕ ОЈОЈКАЈ — OU СОЈА А a OOO JADE E IN C40 00 -JO Ul £ IN a O O 00 Y DN E СОКО O LONDAN FUN a OO Co 
соллоососол-.осоочочооосоосоососососолголососососоосососоосоосоооососоососососооплоо 


ака А ARES INVARIABLE READ INITIALIZATION жжжжж 
+ 4105 EUAPEISDISMCONSPANTS BY CHARGE 


REM 
REM 
REM 
REM CHARCE ü 
READ A24,A14,A04 
READ али сан о 08 
REAL 80442147824 
REM *CHARCE 5 
READ A25,A15,A05 
READ БОЕ С15,С05 
REAL B05,B15,825 
REM *CHARCE 7 
READ 151951172207 
REAL Og С17,С07 
READ BOI, E17, B27 
REM *CHARÓE 8 
READ A28,413,A08 
REAL С28,С18,С08 
READ BOE B18,B28 
REM *4109 MAX RANGE OF CURVE FIT VARIABLES 
REAL CHGU MAX, CHG 5MAX,CHG7MAX,CHGOMAX 
REM *M109 HIGH ANGLE CROSS OVER VARIABLE 
READ HACRCSS 
REM 
REM *BATTERY VARIABLES 
REAL ETRYE,ETRYN ,BTRYA,BTRYL 
REM *REGISTRATION VARIABLES 
READ RG K, CECOR 
REM *TARGET VARIABLES OR OBSERVOR INIT LOCATION 
READ GRIDE,GRIDN,GRIDA 
i 
REM *OBSERVOR VARIABLES 
READ OT, LAIDEV, RGDEV 
| 
REM *SPECIFIC CORRECTION FACTORS VARIABLES 
REAL MELRAL, ROTCOR, REFDEF 
REM $ жж x o Ж ЖЖЖ Ж ke he ee ec ee I A EFF FAT KH HA TAI К 
REM ха MAIN ЕВОСВАМ BEGINS ZAHLEN 
ВЕМ START 
REM *COMPUTE TARGET GRID 
GOSUE 1050 
REM *COMPUTE GUN RANGE,AZIMUTH 
СОЗОЕ 1130 
REM *COMPUTE FIRING DATA 
GOSUE 1240 
REM 
STOP 
REM + хх жжжжжжжжжж MATN <ТОР ZZ Xo Go oo aK KKK EK KK 
REM жижи Ж ЖЖЖЖ SUBROUTINES ЖЕ ЖЖ 
REM 
КЕМ KRZR HK AK KK KK IK IK AK KK IK I KIA Х ЖЕЖ ХХХ ЖЖ 
REM *** COMPUTE NEW TARGET GRID FROM SHIFTS *4**#% 4% 
REM ЖЖ ck ox ox ox ok oe e a HK eK Ke oe de ake e ee Ke Ke ee жж жож kkk kk 
REM START 
GRIDN = GRIDN+(RGDEV*S IN ( (ROTCOR-OT) / 6 
E YILRAD) -LA DEV*COS (ROTCOR= OT) / (TLRAD) ) 
GRIDE = GRIDE+ (RGDEV*COS ( (ROTCOR-OT) / 
6 Қазан, DEV*SIN((ROTCOR-0T) /MILBAD)) 
R 
REM O E US уе Me AA A ee ee ete AA A Ж 
REM 
REM A AAA A Жжжж A A ARA RAR A CE oC X Xo KA IKT IK FF KK 
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REM **:** COMPUTE GUN RANGE, AZIMUTH хжжжжжж daa 
REM I X KK KIRCHE AKKU FE IK IK KH IK HE AA HE К 
REM START 
TGTRG = SOR((GRIDE- BTRYEZ)**2* 5 
6 SGRI DN-BTRYN)**2) 
IGTAZ - ASIN((GRIDN-BTRYN) TGTRG) *MILRAD 
ТР ERIDE >= 
TGTAZ = ROTCOR - TGTAZ 
ELSE 
TGTAZ = 3*ROTCOR + TGTAZ 
ENDIF 
RETURN 
ЗЕМ 3X HZ KHK R KHK KK KK ЖЖЖ ЖЖЖ Ж 
REM 
REM X zZ OR Re eK KKK RK KK KKK KR KKK KK KKK 
REM *3x** FIRING DATA COMPUTATION ROUTINE Ha aka sie gi 
REM KK RK ee ee KK KK A ЖК ж жж жж Ж 
КЕМ START 
IF TGIRG <= CHGUMAX 
INVCKE= FN FD(A2U,A14,A04,C24,C14,CO4u, 6 
5 B24,E14,B04) 
ELSEIF TGTRG <= CHGSMAX 
INVCKE= FN FD(A25,A15,A05,C25,C15,C05, 6 
5 825. E15,B05) 
ELSEIF TGTRG <= CHG7MAX 
INVCKE= FN_FD(A27,A17,A07,C27,C17,CO7, 6 
5 827,E17,B07) 
FLSEIF TGT8G €» CHGB MAX 
INVOKEs FN FD(A28,A18,408,C28,C18,CO8, 6 
a 328,218,BC8) 
FLSE 
PRINT TGTRG 
ENDIF 
RETURN 
REM жжжжжжжжжжжжжжжжжжжжжжжжжожжожожжожкж жож жож HF N FH A KK OK 
REM 
REM KIA KARTE KK KA KT KK A A жж жоко У ТЕ У + 
REM *** FIRING CATA COMPUTATION FUNCTION Krk to ik% 
REM MK OR KH ee eK KK KOK KK KK OK KK KK 
REM START 
DEP ЕУ.РО(А2,А1. АО GRCI, CO. EZ, BT, о 
EL = (-A 1+SOQR (A1#* 2- (4¥A2* (10- Kor “20518 
5 )))/(2%4 
IF EL > HACROSS 
PRINT TGTAZ,TGTRG 
ELSE 
BRINT C 0+C 1*EL+C2*EL*«2 
ERINT REFDEF+DFCOR+ (BTRYL-TGTAZ) + & 
5 80981«8148245за2) 
ERINT EL* ((GRIDA-BTRYA*20)/TGTRG*1000 
ENDIF 
FNENT 
REM жжжжжжжжұжжжжжжжжж ххх хкжхххжхк хжкж е Жж Жж ХХХ ЖЖЖ 
REM END EAX59 TEST PROGRAM NUMBER ONE 
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TEST PRCGRAM LISTING FILE (LISIF) 


+ = Ou к + 

+ «7 HA ES % + 

% m 27 no + Jt p 

% (5c • 03 (57 << 00 # + ub 

% OHHH + + ж 

+ MRO © # # Бі, 

++ (4 eX Z7 EA 51 % ж с a 

+ EIH nmm ud qq + + du «с 

+ f D O +] E4 03 83 03 J ұз fr} п r3 fal 

+ TA HO Ar EA O + + = С” +4 > => 

+ Ен 22 010 ОД 4 «4 ХО + + fa] 04 H (ri 

+ ОО, аж 4: + + а e 53 ЕН - 

3t G40 ка ОШ Г. + + O ra en e 

+ O MUUNA H ж m О EA ~ m 

4t мі Га ша?» dt 3t Ay a еп LA 

# - то, Оппа + + > +1 > к= 

+ о Оон ігэчағнаао + + fy са С) са = 

+ N WH Ж» OZ + 4 Ay ЕН ба O 

+ а нт »HAEINMODEA 34 N м EA ud O H 

H = «члено т: + DO щл re N = н m > Q E 

зав = соли Y e ° e ^ г. fr} nm Ba «5 

+ 22 AMMA єй) + =“ = in m С (~ = > >4 са О 

+ ка па О ПО 03 ба ЗјКп + OS ОСО NN oro пт О са ~ O 

+ = AM FHSOODN + = п ею за с Ро ЕН ма єз 

+ єй “Un ~ т % O O С Фо NMO AMF MoD UY m (9 

% m у са О 20 FI > H t€ ~ => ~ зе ~ С ~ ~ DO WM % с» са 

+ O а ОВИ) + AH BS eor ODO vete v0 Qe O Ра m о 

+ О «ыш, Sz K # о MMO MONDO 300 го e m > N > 

+ m MEA urna * ға ооо 300 "3 МО Be YU p et ба 

+ ы Ән ДЕНЧИНОТ +» uU) NU NOD MEO WOOD MAD OO Es Еч f] 

3t ы шы uU + Еч ¿OS O е СОО eC) э Oo 14 03 =й u 

Жаз ОНО нні Y GC Z C ees З зеь Dee Nee. ЩО A A m 

ж 03 жылма виды 3X ЕН «б N wen СН WOO (Y + a NM er” оо N OO xO 

+ ч aN HUZUIA # «я ва D OD “от MH Ze Lm en = Хе Hie 

+ Е р р + а (Л ODT” nn nor хосоо He ка Es O Loa < ә 

+ (бр FA 07) O + 127 27 (~ 27 СО СО е ГУ ОО ГУ сого СЧ MO о н HO AS 

+ WV ac xq ко 03 РАДО + + о со о т E со ғ «ao O 

% NO ЧӘЕ Еч) + + URIMODOAIMNG :IMODEINO . MO UV О ел со Саз? 

+ мощ м мәніне ов + UMO VIO WNO UWO s ~ HF Ро ра ła Oil 

+ < E CD) GE EA IH ELE + + щщ сә мц СОг О ъокоо 52% 2 MO HO Ha D ee 

+ m са 2 NAD N + + ОУ СУ о СО С КО ОС «4 55 СП) о n1. U* шо mo 

+ и) Ч % + ЭП! е еГ-Ш еве зе ооо ФФ On FO HO ФФ mo 

+ (3 00 04 66 БН О аа Y Y MUt 1 CU =) = Оо 170 Om Or He» De: mo uU» 

* H He VESNA қ + «Mt + + + FU) ет мо Be a3 Mt 
uy # С ба (И) wo + ++ о > = со са ЕН О 

+ nea онына + % % + + A ж + + 
= калы тїт бара + + 

по онч Еч He + 

ak EA + + 
Qi + + + 
н «nce cene BL nan ед "A «en «т «t, ет 
БЧ: 1550757 3751201051957 0570012403507 0570570558157 5164644 EA A A SA EA A Ж EOS XXE E2314 222301232263 232 256422 
{ы po 3 Fon in (93) 9 (G3 R63 83 (9 620 122 0 6467406110 I et ed I RE bet ld ка It Fi Ic II pp] ТЕЗІ 


О са ба 03 ба ба 03 Са ба па ба 09 ба (а са 03 ба ба 05 06 05 C (3 Са 08 Са 23 6279 OO c aic Сп Са аа 03 (3 6302 5 ба 03 6 па а Са па па са ба Га С3 03 


сз е 0o ИЭОГ-ООООЫМООКООГ-ОНООООООООЭСООООООООСООООООСОООООООС«ОСООООСООООО 
Orr ETHAN ООСС МИЛИ CO CIL m за пот ооо с СЧС а оо тото сео О ГУ ОО ОО NM UNO 
OOO C OOOO0O0O0O Oo0c000 00 e c e c7 ce c c € € 04d 9040404 0900 0000 00 0 m ey 0 en en en 00 24 z3 zT zz зг = 
ЭООЭООСЭООООООООООООООООООООООООООООООООСООООООООООООООСО 
ОООООООООООООООООООООООООЭООООООООС«ООСОС«О«ООООООООО«ООС«ОС«О«ОСОСООО 
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% $ ¥# + ж HHH а 
+ жж % + ини (А са 
+ => ЊУ + + 3t 3X 3t ка = 
+ О ++ + + + них m m 
ha H + H HHH A A 
ы” Es ++ + ж хе “нысан 
e єп жж % ж жз дады 
EA ил O u Jt 3t + Y көс NEN 
E ix] О га H + + к ж сом 
е" + fx] e к! + + + # ҰЯ f EA | E 
Mm f m і m ++ + + х Ек са Оба О 
но «т га 4 T, 3t 3t + + tet Oi ! 
ка У за Нн» «г н H H A + + X MH UUN 
ЕН ex = H e ea ++ % # #78 Ново 
«0 H Tí єй] 0 H ка 3t + % + UY ОООО 
са но >a TY > X Uu) 3t к х A (GANE 
H о > om + >; + + к=н оо 
un V ~ Ен 25 О Uu) жн % к нон с-та 
са H m HO б; > са зе (9 + ж нон un — 
O пъ г са о X 61 ще + +оо ++ HO 
ЕН а м ж => + fr] FA m Ea % я + * Мог 
о Ll Е req О ~ ил С) + > + + HOY + OHH 
«x г = к>» >] ci N са = + 57 = + ене РОБ 
Fu а «т ar u Ен Гг] О га + н + Хол pem 
ЕН nn 0 то „д па Xni t3 Fl #078 ARAS’ 
= О 9 tn Т.Е (С) » m nd za O QA «4 « а т + + оо 
Осо A 2 O са ка е От WM Ор ЖО н > F4 O Нн aot EXC MAGA 
HAN са О бо» U n= H a га ны 40% 0 м «Қ Е+ но О | на 
HN ес uU Оза 2109 оз NH - Hæ FO O о A и) Dm FOX ++ 
Оо > H ей El Pt a Mm mm UO # = O жо аччы 
мо m О 32% ала ге оо HZ VI mm e HOD CA m «ғ а мо >. я нм OO ne 
са О GH OON DON OON OON ON y «пе пъ но MO FH 53 са = ні (а ++ + ОУ ДУ ~ 
euo > A OM Оса «ог eom =0 = ча 2 ec mm MD ж (оо ОНО «б D н + сома 
СЭ == п > ~ ә eae ъъ ә aro ды м 03%4 O HA AA.» ON жає np nm = по ош =» C9 ed CD ex 
() ~ Ж ЧУ ичо СУ СУ СУ СО СО Оооо MU eio; HO WH >> OO + = <> = С Y FI ба m 
7 + в сете сес erer ere но CE HO ro 23 са #% чег + к ++ 2H Wn 
ON о За Ор рзе О Сб ид ке () пара И) П »4»4 (Оо) M aV >O ŒN Un ++ + +t + + Y KH 
но Jj «ІІ =e ey > 9» Beep Fe = Aye WHY? різ» о a>. OH HA 34% MAMAM % + EMR ZEWN 
pau + OWURTITTIRWWUINEP- MAD HS ПО пі ға ыны De ra яж - орао но + + чая A 
к» + «5 CIC CO e2 0I CC С СЧО 8 СЈ СО = ба мы пе FIO MA HA ++ (лол (л % ж хожнн 
Uo ж Озе О вара О са зе) а пе (00 AD DY HBG HM WH гі» Qe е попюоо + # КО MAG 
Ie + OU O O O Om Om НЕ ФО mM NH ын ЖЖ жоғы 9 Jt + ASIA чао 
nuc» + å eğ + + 3t оО tz «au 12104 «eO mO Aas ## O O O + Y *# ORO 
ny ж 5 = 51 m ба ЕН С Un ено о О + Жж нози 
+ # ж + + 3t + + + + жесе w + АТЫ % + X 
+ хм ох Ж хня 
+ + + Ба Еч 3 Њ +++ 
ж 4 Jt tU) NR = ++ + 
+ 
«1; ARTA Mur FAR ada са са са C с a (3 


$14 3131513231310 0e Xl«reü««nX1e «ema xi eue x1x1ex:X1€03131e0323]4 €131«0 X1X2«Q XiX1e x13131Ez1*1 
£3 «x pe f fe) i par Eod Fe b ы а Po p 3 3 9 E) [3 Ee I 9 E: E [2 64 F3 9 0393 (3 0 EN FRA Er Era P Pe) РД ЕЛ ЕДЕД Н] 
03 CA 0208 08 08 0504 05 03 04 03 (0506 рч (а 02 25 02 05 05 02:05 08 05 05 09 05 05 05 03 05 04 0805 0305 03 05 (33 05 08 08 05 05 05 ра 02 08 


= 
га 
ба 


52 N FIT TH 
ч parese 
m сач 04090409409 09 030409 c9 


to 


OTNMOOWWOOOOOOOOOOOOOOOOOOOO9OO0OO0O09O9OO9O9O9O9O99WNWOAWODIOOODIDOOOOONDIZWMWOTITWOOOO 
PEM DAHAND TAM FNWOPF DHDOSCAIMNSANOPEDNOTAMANOPDHNOTAM 27 ОГУ ГУ СО О СЧ ГУ СОС е СЧСЧсо со у ИО Г со С 
-fIpIpIfIEIf-FuunuuunuuwouuoooOuoouououowouvouorm tr ÜDO D DIERISOOo0)00000000000000000Y OO OO OO COO C9 COGO CO C^ C0 COO C» CON C» CAN 
ооососососоосоосозсососососососогоосоососоосогооссососососососососоеоссте A mm O С ә С се 
ООООООООООООООООООООООООООСООООООООООООООООДОДООООООООФОООООООООООООооо 
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да => O10 OO YOUNES WWD COO JAN EZ WWD а <= СО O O Y Y NN E E WN N a O O 00 JO E E Lo ОН 5 €» 
СООМЛОСО О > ОС О О ОСЛО DO OVUIOVIGOSO О О О ОСЛО ОСЛО ОВО СОЛО ОО О О О ООО ОДО ОСПОСЛ- О ОСЛО Ор 


OOOOOOD2OOOOODO OO DO OO OO SO OO СО O9 O9 OO 9 ОД СООО 9 0 OO 9 DO 9 9 9 99 
— aa am a o ce m ћу au am ama mh cb anu om m an cnn m canh mh cn a cb anh cm am am au om am au ced cmd anb cmd am cmd А лад аа cub om cab m А em а у E А а „А 
лол Е2 342 42 42 42 42 42 42 62 EEE UW UU UW UW tw w ОКО КО КК АКО КО КО КО КО DPD а А ә а ә 


жын «к. аш.» «кы» «ғ. «шә» 
m: «ии» (u «лы» ow 


Г о 
4» «а «и» «жн. «низ «с» 


RETURN 
REM xo o I KK I EHI жк OK KKK 
REM 
BEIM 3e ok oce deo ox exeo o KH KK HI XC COO DC лж жж X 
REM **** COMPUTE GUN RANGE, AZIMUTH aka жж жж жж жи яж 
REM ЖЖ ЖЖ жж о о о о жж ЖЖ 
REM START 
TGTRG = SOR((GRIDE-BTRYE)**2+ 5 
в GRIDN-BTRYN)**2) 
TGTAZ - AS IN ( (GRIDN-BTRYN) /TSTRG) FHILRAD 
IF GRIDE >= BTRYE 
2; IGTAZ =" ROTCOR - TGTAZ 
TGIAZ = 3*ROTCOR + TGTAZ 
ENDIF 
ETURN 
KEM елі Еа а 212600505905 хақ 
ВЕМ 
REM KIA REIKI KHK KT KT К ж 
REM **4* FIRING DATA COMPUTATION ROUTINE жжжїжҗжҗж жж 
REM XIII AR a KK KK ZA KK HF IK HK KK KH KK K 
REM START 
IF TGTRG <= CHGUMAX 
ІЗУСКЕ- FN_FD(A24,A14,A04,C24,C14,C04, 5 
5 B24,214,B04) 
SLSSIF TGTRG «- CHG5MAX 
INVOKE= FN_FD(A25,A15,A05,C25,C15,C05, 5 
5 525,215,805) 
ELSEIF TGTRG <= CHG7MAX 
INVOKE= FN_FD(A27,A417,407,C27,C17,C07, _8 
5 B27,£17,B07) 
ELSFIF TGTRG <= CHG8SMAX 
INVCKE= РМ Е0(428,А18,408,С28,С18,С08, 6 
5 828,218,808) 
ELSE 
PRINT TGTRG 
ENDIF 
RETURN 
REM жжжжжжяжжжжажжжжж жжжжжжжжжжжжжжжжжжжжжж око A AA A AA A K 
REM 
REM RRA xo a A A A ОКК КУК ЖИЖИ A A AA A AA КжК к К 
REM *** PIRING CTATA COMEUTATION PUNCTION xx x 46x d e 
ЗЕМ жжжжжжжжхжжжхжж жж жкжжжжжжжжожжжжжожожж жж ЖЕЖ ЖЖ ЖЖЖ 
REM START 
AA 52 31,50 
РІ 781%5С5(414%2-(4442%(40-76Т36ж30К)5 
5 JO (2 * AZ) 
IF EL > HACROSS 
EBINT TGTAZ,TGTRG 
ELSE 
ERINT CO+C1*EL+C2*EL**2 
PRINT R EFDEF+DFCOR+ (BTRYL-TGTAZ) + 5 
5 А РЫЗТЬЙ 
„PRINT BL+( (GRIDA-BTRYA+20) /TGTRG* 1000 
FNEND 
REM жжжжжжжжжжжжжжжжж A A A A A KK KK Oe eK eK A A A AA AA A 
REM END EAX59 TEST PROGRAM NUMBER ONE 
ЗЕМ 2 2 3 2.2 2 > 2 2 2 2 2 2 2 2.2 22 2 2 2 2 20. 2.2.2 2 2 2 2 22 2 22.202 2 2 2 2.2.2 2 2 2 2.202 02 
CCMPILATICN SUMMARY 
0 FATAL ERRORS. 
0 WARNING MSGS. 
NEXT AVAILABLE REGISTER 
REGISTERS BESERVED = 11 
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Uu) >, са 2 

с Hi (Q HY 

O Uu) Ul 
Ба Ба 
e + + Д mI = а A -1 rl ө а о кж єз +] +] м. -1 +] + 
Hon Ud Om Ou Un OS >= VUN Om Ur (у= >=; Ho nz, оо UN + On От + 
ИО v" Ou + c OS 3*€ iO 1 MON ON + OH TOD 1 GO Моо СЧ АУ НС 0) Мр EN AN + ПАО | ба РА 
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ЖИ PEC FED CCNTROL- FLOW PRON CIS BY 


EXPECTED EROMPTS FOR MODULE # 1 
Ж FORWARD JUMP CONTINUATION: 4 DIGIT REAL CODE. 
NUM 2 
* SUBROUTINE INVOKE: 4 DIGIT REAL CODE. 
ж HAJUAL RETURN FROM А SUBROUTINZ: 1 DIGIT СОГЕ. 
* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 
x NONE 
EXPECTED EROMPTS FOR MODULE # 2 
* FORNARI JUMP CONTINUATION: 4 DIGIT REAL CODE. 
ж 3.000 
* SUBROUTINE ТНУСКЕ: 4 DIGIT REAL CODE. 
ж MANUAL RETURN FROM A SUBROUTINE: 1 DIGIT CODE. 
* SEQUENTIAL CONTINUATION: 4 DIGIT REAL СОВЕ. 
* 3.000 
EXPECTED EROMPTS FOR MODULE # 3 
ж РОАЯАЯГ JUMP CONTINUATION: 4 DIGIT REAL CODE. 
NUNG 
* SUSROUTINE INVOKE: 4 DIGIT REAL CODE. 
* MANUAL RETURN FROM A SUBROUTINE: 1 DIGIT CODE. 
T 
* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 
* NONE 
EXPECTED PROMPTS FOR MODULE # 4 
* FORWARD JUMP CONTINUATION: 4 DIGIT REAL CODE. 
5 SUBROUTINE INVOKE: 4 DIGIT REAL CODE. 
* MANUAL RETURN FROM A SUBROUTINE: 1 DIGIT CODE. 
Е 
* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 
ж NONE 
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